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This  research  investigated  the  causes  of  escalating  software  costs 
relative  to  Aircrew  Training  Devices  (simulators)  and  resulted  in 
a software  sizing  tool  useful  in  reversing  the  cost  growth  trend. 
The  hypothesis  was  that  a collective  software  sizing  estimate, 
aggregated  and  standardized  at  the  functional  level,  would  provide 
a more  reliable  estimate  of  simulator  software  size.  Investiga- 
tion disclosed  that  the  heuristic  sizing  techniques  being  used 
were  inadequate.  There  was  no  organized  empirical  data-base  to 
support  a formalized  software  sizing  process.  A software  manage- 
ment model  called  SIMSIZ,  including  a supporting  data-base,  was 
designed  and  developed.  The  model's  primary  function  is  to 
assist  software  engineers  in  making  realistic  evaluations  of  the 
size  of  contractor's  proposed  software  packages.  It  was  concluded 
that  a major  cause  of  software  program  delays  has  been  a growth 
trend  in  software  size  during  program  development.  SIMSIZ  has 
demonstrated  that  several  software  projects  under  development 
are  undersized.  The  researchers  recommend  establishing  a 
requirement  to  standardize  simulator  software  development  and 
reporting  at  the  functional  level. 
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CHAPTER  1 


INTRODUCTION 


Overview  of  the  Problem  Area 


The  Air  Force's  acquisition  and  use  of  flight  simu- 
lators has  continued  to  increase  in  recent  years  owing  pri- 
marily to  the  Department  of  Defense's  (DoD)  dedicated  effort 
to  reduce  the  rising  costs  of  military  flying  time  (18:2). 
Tighter  federal  budget  constraints  and  the  continuing  rise 
in  fuel  costs  since  1974  have  fostered  the  DoD  flying  hour 
reduction  effort.  With  the  reduction  in  the  flying  hour 
program,  flight  simulators  are  receiving  greater  emphasis. 
The  application  of  digital  computers  and  sophisticated  soft- 
ware has  improved  flight  simulator  fidelity.*  A recent 
example  is  the  addition  of  the  Computer  Generated  Image 
(CGI)  visual  system  to  all  of  the  C-5A  and  C-141A 
simulators.  Operational  Test  and  Evaluation  (OT&E), 
conducted  by  one  of  the  authors,  substantiated  a 
significant  increase  in  simulator  acceptance  by  line 
assigned  aircrews. 

^■Fidelity  is  the  exactness  with  which  the  simulator 
duplicates  aircraft  performance  and  flight  sensations. 
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Captain  Wildung  conducted  OT&E  on  the  C-5  CGI 
visual  modification  while  assigned  to  the  Simulator  Training 
Drancn  of  the  60  MAW,  Travis  AFB,  California. 
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Over  the  past  four  years  there  has  been  a dramatic 
increase  in  budgeted  simulator  funds:  for  fiscal  year  1974 
the  budget  provided  $88.5  million  for  update  and  initial 
acquisition  of  simulators;  for  fiscal  year  1976  the  amount 
was  $283  million  (18:24).  The  projected  five-year  budget 
through  fiscal  year  1985  includes  $1.8  billion  for  simula- 
tors (15).  Expenditures  of  this  magnitude  require  accurate 
budget  estimates  to  avoid  additional  costs  and  program 
delays  incurred  when  expenditures  exceed  original  esti- 
mates. 

Software  cost  estimates  provide  a basis  for  the 
financial  support  of  software  system  development.  If  soft- 
ware costs  are  seriously  understated,  the  system  program 
manager  must  request  supplemental  appropriations.  Inaccurate 
cost  estimates  are  among  the  greatest  contributors  to 
underfunding  (16:1).  Requests  for  additional  funds  are 
quickly  labeled  as  overruns  and  not  as  inaccurate 
estimates.  To  avoid  these  problems,  system  program  managers 
need  reliable  techniques  to  estimate  and  budget  for  software 
development.  Some  general  measures  have  oeen  taken  to 
improve  simulator  software  cost  estimates. 

The  Simulator  Systems  Program  Office  (SIMSPO)  was 
created  in  May  of  1973  to  implement  a standardized  simu- 
lator acquisition  strategy  and  to  establish  a central  coor- 
dinating office  for  Air  Force  simulator  technology  and 
information  (1:135).  Software  engineers  assigned  to  AFSC's 
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Aeronautical  Systems  Division,  Directorate  of  Engineering 
(ENETC),  have  been  dedicated  to  the  SIMSPO  and  are  respon- 


sible for  managing  simulator  software  development.  However, 
their  software  size  estimates  have  been  based  solely  upon 
heuristic  techniques  (3).  They  have  no  organized  informa- 
tion source  to  support  their  suspicions  that  contractors 
deliberately  underestimate  memory  size  and  timing  require- 
ments to  buy-in  on  contracts.  This  inability  to  refute 
contractor  proposed  memory  size  and  time  requirements  has 
resulted  in  extensive  program  delays.  For  instance,  the  C-5 
Cockpit  Procedural  Trainer  (CPT)  is  now  estimated  to  be 
ready  for  training  two  years  later  than  was  originally 
proposed.  A user  originated  Engineering  Change  Proposal 
(ECP)  for  inclusion  of  an  inertial  navigation  package  caused 
part  of  the  program  delay.  However,  the  computer  program 
manager  estimated  that  at  least  a ten-rnonth  delay  on  the 
original  proposal  would  have  been  inevitable  (11).  The 
C-130  Operational  Flight  Trainer  (OFT),  the  C-130  CPT,  ana 
the  C-130  visual  system  are  expected  to  slip  from  five  to 
twelve  months  because  of  insufficient  spare  processor  time 


Recent  improvements  in  simulator  fidelity  and 
realism,  such  as  CGI  visual  systems,  are  attributed  to  the 
application  of  sophisticated  computer  software.  The  price 
of  improved  simulator  realism  is  increasing  software  com- 
plexity. The  production  costs  of  simulator  software  are 
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estimated  to  be  35  percent  labor  intensive  and  are  becoming 
a larger  portion  of  total  simulator  costs  (20). 


Scope  of  the  Research 


In  view  of  the  magnitude  and  complexity  of  the  soft- 
ware cost  estimating  problem,  the  scope  of  this  research  has 
been  narrowed  to  the  development  of  a parametric  technique 
to  forecast  the  size  of  simulator  software  packages.  A more 
accurately  sized  software  package,  size  being  a major  cost 
driver,  will  provide  a more  realistic  basis  for  software 
costs  (3).  Software  size,  measured  in  terms  of  memory 
requirements  and  central  processing  time,  are  translated 
into  the  number  of  manhours  required  to  produce  the  coue 
(3).  Contractor  lauor  rates  and  overhead  rates,  projected 
over  the  acquisition  process,  are  applied  to  tne  estimated 
manhours  required  to  produce  a software  package.  oou- 
uirected  inflation  adjustments  are  made  to  provide  an 
aggregated  software  cost  estimate  (20).  In  summary,  this 
research  will  take  the  parametric  approach  to  forecasting 
simulator  software  size  to  provide  an  empirical  basis  for 
more  reliable  software  cost  estimates.  Software  cost  esti- 
mation is  not  an  objective  of  this  research  effort. 


Statement  of  the  Proulem 

The  SIMSPO  does  not  have  an  organized  empirical  data 
base  to  support  a formalized  software  sizing  process 
necessary  for  reliable  cost  estimating.  Presently, 


heuristic  sizing  techniques  are  based  solely  on  the  personal 
experience  of  software  engineers.  The  fact  that  no 
parametric  means  exists  for  estimating  software  size  has 
contributed  to  the  inaccuracy  of  simulator  acquisition  cost 
estimates  (15). 


Backg round 

A brief  topical  review  of  the  history  of  software 
engineering3  over  this  decaue  provides  a background  for  the 
research  approach. 

The  NATO  Software  Conference  during  1969  provided 
the  arena  for  international  discussions  of  the  costly  and 
well-publicized  software  failures  in  operating  systems. 
Software  development  costs  were  out  of  control.  By  1971  the 
prevalent  research  was  into  fundamental  programming  prac- 
tices. The  advantages  of  top-down  design,  stepwise  refine- 
ment, modularity,  and  programming  team  reviews  gained 
special  attention.  The  theme  by  1973  shifted  to  structured 
programming  with  increased  attention  given  to  total  soft- 
ware life  cycle  management.  The  International  Conference  on 
Reliable  Software,  in  1975,  stressed  reliability  and  quality 
assurance.  Models  designed  with  fault  tolerances  and  total 
system  reliability  were  the  key  areas  of  interest. 
Requirements,  specifications,  and  design  were  the  buzz  words 

3"A  term  coined  in  1968  as  a provocative  term 
intended  to  highlight  the  need  for  a disciplined,  process- 
oriented  approach  to  software  development  [19:30]." 
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in  1976-1977  (19:31).  Renewed  attention  was  given  to  a 
thorough  understanding  of  design  requirements  prior  to 
coding.  Much  of  the  innovative  software  theory  had  been 
applied.  Efforts  were  increased  to  integrate  and  validate 
succeeding  development  phases  (8:69-84).  It  was  time  to 
reevaluate  the  basics  of  rigorous  design  and  detailed  speci- 
fication requirements.  By  1980  it  seems  likely  that  the 
emphasis  will  turn  toward  an  increased  use  of  automatic 
software  development  tools  and  a widespread  use  of  the  tech- 
niques and  principles  developed  during  the  previous  decade 
(17:81). 

As  an  engineering  discipline,  software  engineering 
must  concern  itself  more  with  modeling,  experimenting 
with,  and  validating  theoretical  iueas,  then  using  the 
results  to  build  systems  [19:36j. 

In  spite  of  advanced  techniques  in  software  develop- 
ment, there  remains  a significant  trend  of  rising  computer 
software  costs  in  all  sectors  of  the  computer  industry.  The 
DoD  uses  five  basic  types  of  computer  systems,  each  of  whicn 
suffers  from  software  cost  estimating  problems  (2:65).  Each 
type  will  be  briefly  described  prior  to  concentrating  on 
simulator  software  problems. 

1.  Operational  Flight  Programs  (OFP)  refer  to  the 
software  installed  on  board  modern  aircraft  that  comprise 
the  basic  components  of  computerized  avionics  systems. 

2.  Automatic  Test  Equipment  (ATE)  is  the  highly 


specialized  hardware  and  software  used  by  field,  base,  and 
depot  level  maintenance  to  perform  automatic  or 


semiautomatic  testing  of  operational  systems  such  as  complex 
aircraft  avionics  and  missile  guidance  systems. 

3.  Communication  Commanu  and  Control  Systems  (CCC) 
generally  consist  of  large,  high-speed  computer  systems 
located  worldwide  to  provide  near  real-time  information. 

4.  Automated  Data  Processing  (ADP)  systems  are 
located  throughout  DoD  to  handle  the  day-to-day  functions  of 
the  personnel,  supply,  ana  finance. 

5.  Aircraft  Simulators  use  very  sophisticated  soft- 
ware and  unique  hardware  to  provide  aircrew  training  under 
extremely  realistic  simulated  flight  conditions. 

The  symptoms  of  the  software  cost  esti»aating  prob- 
lem are  the  excessive  costs  associated  with  development 
delays  ana  substandard  system  performance  which  necessitate 
engineering  changes  to  attain  user  operation  requirements. 
Traditionally,  software  engineers  and  computer  system  pro- 
gram managers  have  emphasized  quality  control  techniques  in 
software  development  such  as  design  reviews,  software  vali- 
dation, debugging  aids,  and  thorough  testing  (9:18). 

These  efforts  have  failed  to  cure  escalating  soft- 
ware costs.  "Overruns  of  100  percent  in  ooth  cost  and  the 
time  to  develop  software  have  not  been  unusual  occurrences 
[9:19]."  Software  development  costs  are  approaching  90 
percent  of  total  computer  system  costs  (9:18).  In  1973  it 
was  projected  that  by  1985  the  Air  Force  spending  ratio  on 
software  versus  hardware  would  grow  to  10:1  (13:13).  In 
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1977  the  federal  government  estimated  the  annual  cost  of 


software  development  and  maintenance  at  $4  billion  (9:19). 


By  1978,  the  World  Wide  Military  Command  and  Control  System 


(WWMCCS ) had  already  cost  $722  million  for  software  compared 


to  less  than  $100  million  for  hardware  (13:13). 


Several  potentially  effective  general  purpose  soft- 


ware cost  models  have  been  developed  such  as:  the  RCA  PRICES 


model,  the  General  Research  Corporation  model,  and  the 


Wolverton  model.  These  parametric  models  are  presently 


ineffective  for  simulator  software  cost  estimates  because 


the  available  data  are  either  aggregated  and  reported  at  too 


general  a level,  or  are  altogether  unavailable  (1:17). 


Parametric  cost  estimating  models,  without  a continuously 


updated  data  base,  become  oosolete  and  provide  minimal 


assistance  to  the  cost  estimator  (20).  The  potential  of 


these  models  will  not  be  realized  until  the  detailed  costs 


of  software  development  are  accounted  for  and  reported  Dy 


contractors. 


Detailed  software  costs,  until  just  recently,  were 
not  required  to  be  furnished  by  contractual  agreement 


(2:52).  The  rising  software  costs  have  now  made  it  cost 


effective  to  purchase  detailed  data  upon  which  future  cost 
estimates  can  be  refined.  However,  until  an  extensive 


empirical  cost  base  can  be  established,  alternative  cost 


estimating  techniques  will  have  to  be  developed  to  alleviate 
the  present  budget-underfunding/cost-overrun  problem. 


I 


The  authors  elected  to  concentrate  on  simulator 
software  problems  because  of  their  mutual  interest  in  this 
area  and  the  likely  prospect  that  simulator  software  would 
have  a common  denominator  amenable  to  software  cost  esti- 
mating. This  belief  was  based  upon  our  combined  experi- 
ence in  simulator  operations,  training,  and  modifications, 
and  in  the  analysis  and  design  of  computer  software  systems. 

A concentrated  literature  search  of  software  studies 
provided  only  general  information  concerning  flight  simu- 
lator software.  Several  theses  on  various  aspects  of  flight 
simulators  were  helpful  and  are  included  in  the  related 
sources  of  the  bibliography.  Our  information  search  con- 
tinued through  interviews,  which  provided  tne  conceptual 
basis  for  our  research.  ASD  software  engineers  enumerated 
their  current  policies  to  combat  the  unpredictability  of 
software  costs:  (1)  FORTRAN,  a standard  High  Order  Language 
( IIOL) , is  required,  when  feasible,  for  all  software  con- 
tracts; (2)  software  development  contractors  must  use  a 
structured  top-down  design  containing  functional  modules; 
and  (3)  contractors  are  required  by  Air  Force  Regulation 
800-14  to  submit  for  review  a computer  program  management 
planning  and  development  plan  for  software  development  (2). 

This  research  effort  applies  the  present  state  of 
the  art  of  software  development  to  build  a software  sizing 
management  tool.  The  size  of  a simulator  software  system 
depends  largely  on  the  amount  of  software  modules  and  the 
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computer  language  used  (1:21).  The  software  modules  are 
segmented  by  function  into  relatively  standard  subprograms, 
the  type  and  size  of  which  depends  on  the  contractor's  engi- 
neering design  estimates  of  the  complexities  as  specified  by 
the  Request  For  Proposal  ( RFP ) . A parametric  sizing  model 
could  predict  the  size  of  the  required  modules  needed  to 
validate  or  refute  the  contractor's  engineering  estimates, 
provided  an  empirical  data  base  was  accessiole.  These  data 
are  available,  but  have  not  been  aggregated  into  a usaole 
form. 


Objectives 

The  broad  purpose  of  this  research  effort  is  to 
provide  a parametric  software  sizing  tool  to  assist  in 
estimating  simulator  software  acquisition  costs.  Our  spe- 
cific objectives  to  accomplish  this  purpose  follow. 

1.  To  gather  empirical  data  on  simulator  software 
by  type  and  size  of  modules,  type  aircraft,  processing  time, 
and  memory  size  requirements.  The  data  will  include  the 
full  spectrum  from  Cockpit  Procedures  Trainers  to  the  most 

i 

sophisticated  Weapon  System  Trainers. 

2.  To  organize  collected  data  into  a workable  data 

base. 


3.  To  design  and  code  an  interactive  computational 
software  sizing  model. 

4.  To  verify  and  validate  the  software  sizing 

mode 1 . 
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Research  Hypothesis 

The  hypothesis  of  this  study  is  that  a collective 
software  sizing  estimate,  aggregated  and  standardized  at  the 
functional  level,  can  be  used  to  provide  a more  reliable 
estimate  of  simulator  software  size  than  the  present 
heuristic  techniques  being  used.  A more  reliable  software 
size  estimate  will  reduce  program  delays  and  thereby  reduce 
the  software  costs  of  simulator  acquisitions. 


CHAPTER  II 


METHODOLOGY 


Introduction 


SIMSIZ  is  the  name  given  to  an  interactive  computer 
model  designed  and  developed  oy  the  researchers.  It  func- 
tions as  a software  sizing  tool,  a management  information 


system  (MIS),  and  provides  a means  for  analyzing  and 
updating  its  supporting  data  base.  The  primary  purpose  of 


the  model  is  to 


management  tool  for  predicting  the  size  of  simulator 


software  packages.  The  data  base  and  SIMSIZ  were  designed 
to  allow  maximum  flexibility  in  accessing  and  analyzing  the 


This  chapter  describes  the  nature  and  content  of  the 


source  data  collected  and  incorporated  into  the  data  base 
The  data-base  design,  which  bears  significantly  on  the  capa 


model  assumptions.  Model  validation,  using  internal  and 


is  explained.  Finally,  an  examination  of 


how  well  SIMSIZ  satisfies  the  research 


Data  and  Data  Sources 


The  majority  of  the  data  used  by  SIMSIZ  was  provided 
by  ASD  software  engineers  dedicated  to  the  SIMSPO.  Part  of 
this  data  consisted  of  the  periodic  (usually  monthly)  status 
reports  required  of  various  contractors  of  current  mulator 
software  development  programs.  These  status  reports  gen- 
erally contain  the  following  information  by  module:  (1)  the 
module  name  or  an  alphanumeric  designator,  (2)  the  execu- 
tion speed  and  frequency,  (3)  the  memory  requirements  for 
instructions  in  either  bytes  or  numbers  of  words , ^ (4)  the 
computer  language  used  (either  FORTRAN  or  Assembly),  and 
(5)  the  memory  requirements  for  program  data.  The  yeneral 
lack  of  standardization,  in  the  details  of  now  this 
information  is  reported  by  the  various  contractors, 
generated  several  problems  in  comparative  data  analysis. 

Some  contractors  report  module  size  in  "bytes"  while 
others  report  in  "number  of  words."  A comparative  analysis 
requires  like  units.  A conversion  factor  from  "number  of 
words"  to  "bytes",  for  each  of  the  computer  systems  used,  is 
stored  in  the  information  section  of  the  data  base.  SIMSIZ 
used  this  conversion  factor  to  adjust  che  data  records  and 
standardize  data  output  as  "standard  bytes."  Data  entries 
were  made  in  the  same  format  as  reported  by  the  respective 

^Computer  word  size,  usually  an  integer  number  of 
bytes,  varies  with  the  type  of  computer.  A byte  is  a 
measure  of  storage  capacity  defined  as  eight  bits.  A bit  is 
the  smallest  unit  of  storage  and  is  assigned  a value  of  one 
or  zero. 
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contractors.  This  philosophy  was  elected,  over 
standardiziny  the  data  prior  to  entry  into  the  data  base, 
for  ease  of  data-base  update  and  to  reduce  the  chance  of 
computational  errors  in  the  conversion. 

An  equally  difficult  problem  with  the  data  was  that 
there  is  little  commonality  in  the  contractor's  module 
naming  conventions.  Although  most  contractors  organized 
their  modules  by  major  functional  categories  sucn  as  Aero- 
dynamics, Engines,  or  Navaids,  the  detailed  breakout  of 
modules  within  these  categories  varied  considerably  from 
contractor  to  contractor.  Even  when  two  simulators  were 
built  by  the  same  contractor,  as  in  the  case  of  the  C-130 
and  the  F-16,  there  are  considerable  variances  in  the  func- 
tional designation  of  the  individual  modules  within  the 
major  system  categories. 

Nonstandard  nomenclature  was  also  a major  roadblock 
to  the  analytical  comparison  of  available  simulator  sizing 
data.  A set  of  standard  module  categories  was  devised  to 
establish  commonality  among  simulator  programs.  Individual 
module  names  for  each  of  the  included  simulator  programs 
were  functionally  grouped  under  the  appropriate  standardized 
categories,  coded  accordingly,  and  loaded  into  the  data 
base. 

The  software  engineers  provided  the  contractor's 
technical  engineering  proposals  for  the  simulator  systems  to 
be  included  in  the  data  base.  These  proposals  contained  tne 
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contractor's  original  estimates  of  software  size,  based  on 


estimated  central  processor  time  and  memory  requirements,  at 


the  time  their  contracts  were  awarded.  Unfortunately,  the 


original  proposals  do  not  always  break  out  estimates  at  a 


detailed  modular  level.  This  limits  an  analysis  of  soft' 


ware  size  growth  to  that  level  of  detail  given  in  the  orig 


The  modular  nomenclature,  as  provided  in  the  peri 


odic  status  reports,  was  fairly  consistent  througnout  any 


given  simulator  program.  Contractors  have  occasionally 


changed  the  name  of  a particular  module  or  added  a few  new 


modules  to  their  software  package.  This  was  not  generally  a 


problem.  Most  contractors  provided  a four  to  eight  char' 


acter  alphanumeric  (alpha)  designator  for  each  module  in 


addition  to  a module  description 


The  grouping  of  related  modules  for  a particular 


while  not  always  obvious  from  the  module  descrip' 


tion,  was  made  by  reference  to  the  alpha  designator  for  the 


modules 


For  example,  all  modules  which  comprise  an 


Inertial  Navigation  System  (INS)  would  have  alpha  desig 


nators  in  the  IN500  series  (IN500,  IN501,  IN502,  etc).  While 


IN500  may  not  be  a common  notation  among  all  contractors  for 
referencing  the  INS  subsystem,  the  general  concept  of 


grouping  by  alpha  designator  was  found  to  be  rather 


This  grouping  concept  was  the  key  to  establishing  a 
standardized  module  categorization  scheme  across  all 
contractors  and  types  of  simulators.  The  alpha  designators 
of  all  modules  for  all  simulators  were  grouped  into 
functional  categories  listed  in  Table  1.  Two-letter 
alphabetic  codes  were  assigned  to  eacn  function.  Each 
module  was  coded  by  its  appropriate  functional  category. 
This  provided  a cross-indexing  capability  by  module  which 
perform  the  same  system  functions  for  any  of  the  simulators 
included  in  the  data  base.  Table  1 shows  the  twenty-seven 
categories  and  respective  codes  standardized  at  the 
functional  level.  Appendix  B contains  definitions  for  each 
of  the  Functional  Categories. 

The  other  principal  sources  of  data  were  the  usiny 
commands  of  operational  simulators.  They  provided  data  on 
the  final  values  of  core  size  for  the  software  modules  in 
their  simulators.  The  intent  for  including  this  data  was  to 
provide  the  capability  to  analyze  the  growth  in  software 
size  from  contract  award  to  full  operational  status. 

The  data  on  the  F-15  simulator,  one  of  the  most 
recent  simulators  to  become  operational,  were  intentionally 
excluded  from  the  original  data  base  so  that  the  F-15  could 
be  used  as  a test  case  in  the  validation  of  the  model.  Once 
the  validity  of  the  overall  model  design  had  been  estao- 
lishea,  the  data  on  the  F-15  were  added  to  the  data  base  via 
the  SIMSIZ  data-base  Add  subprogram. 
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TABLE  1 


STANDARDIZED  FUNCTIONAL  MODULE  CATEGORIES 


Module  Category 

Code 

Module  Category 

Code 

Aural  Cues 

AC 

Fuel  System 

FS 

Auxiliary /External 

Power 

AP 

Growth  Provisions 

GP 

Armament/Stores 

AS 

Hydraul ics 

HD 

Avionics 

AV 

Instructional 

IN 

Cockpit  Displays 

CD 

Landing  Gear 

LG 

Communication 

CM 

Motion 

MO 

Computational  Non- 

real 

CI1 

Navigation 

NV 

Computational  Real 

T ime 

CR 

Raaar 

RD 

Data  Files 

DR 

Simulation  Envi ronment 

SE 

Engines 

EG 

Special  Systems 

SS 

Electrical  Power 

EP 

Tactics 

TC 

Environmental 

EV 

Visual  Real 

VR 

Electronic  Warfare 

EW 

Visual  Support 

VS 

Flight  Controls 

FC 
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Data-Base  Design 

SIMSIZ's  secondary  role  is  that  of  a Manayement 
Information  System  (MIS).  The  key  to  a successful  manaye- 
ment information  system  is  the  design  of  the  system's  data 
base.  The  data-base  design  was  rigorously  analyzed  to 
insure  proper  format  and  the  inclusion  of  pertinent  data. 

Each  data  record  in  the  data  base  contains  coded 
information  by  module  by  simulator.  Each  record  is  identi- 
fiable by  the  simulator  type  (i.e.,  F-5,  C-130,  etc.),  year 
of  latest  record  update,  major  system  function,  subsystem 
function,  module  description,  and  module  alpha  designator. 
Each  record  also  contains  the  contractor's  original 
estimate,  if  available,  and  the  latest/final  values  for 
module  central  processor  time  and  memory  requirements.  Tne 
records  also  include  Iterations  per  Second  (IPS),  whicn  tell 
how  often  a particular  module  is  executed,  arid  a code  for 
the  computer  language  in  which  the  module  is  written.  In 
order  to  facilitate  data-base  file  maintenance,  each  record 
also  contains  a delete  mark  which  is  set  if  tne  user  wisnes 
to  delete  a particular  data  record  entry  completely.  Once 
the  delete  mark  is  set,  the  record  is  ignored  in  all  future 
data  retrieval  tasks.  The  data  are  not  immediately  removed 
from  the  file  but  remain  until  there  are  sufficient  deleted 
records  to  cause  the  data-base  file  to  be  repacked,  at  which 
time  the  record  is  irretrievably  lost. 
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The  design,  development,  and  testing  of  the  data 
base  and  the  SIMSIZ  subprograms  were  conducted  on  the  Air 
Force  Loyistics  Command's  (AFLC)  CREATE  computer  system.  The 
SIMSIZ  software  was  written  in  Honeywell  FORTRAN  IV  and  is 
listed  in  Appendix  E of  this  thesis.  The  details  of  the 
data-base  design  including  the  control  values,  directory 
information,  and  data  record  contents  are  incluued  in  the 


SIMSIZ  User’s  Manual  contained  in  Appendix  A. 

The  data  assumptions  are  as  follows: 

1.  That  the  data  were  reported  accurately  on  the 
source  documents. 

2.  That  the  contractor's  latest  estimates  of  module 
sizes  on  unfinished  software  packages  represent  a reasonable 
estimate  of  the  final  module  sizes. 

3.  That  the  grouping  of  modules  into  the  standard- 
ized functional  categories  by  the  respective  software  pro- 
gram managers  and  the  researchers  accurately  reflect  the 
function  of  the  modules. 

4.  That  the  transfer  of  data  from  source  documents 
to  the  data  base  was  accurately  accomplished. 

Model  Design  and  Manipulation 

SIMSIZ  is  an  effective  multipurpose  computer  model 
that  assists  in  software  size  estimates,  provides  the  user 
with  a data-base  update/delete  capability,  and  functions  as 


a Management  Information  System  (MIS). 


SIMSIZ  was  specifically  designed  to  overcome 
encroaching  obsolescence.  Each  of  the  data  values  for  a 
module  or  group  of  modules,  contained  in  the  data  base,  may 
be  adjusted  by  a weighting  factor  and  a complexity  factor. 
For  example,  the  data  for  the  05  simulator  reflect  an 
earlier  software  production  technology  than  does  the  data 
for  the  0130.  It  might  be  desirable  to  give  greater  weight 
to  the  0130  data  than  to  the  05  data  in  order  to  cause  the 
size  estimate  to  favor  the  later  software  production 
technology.  A complexity  factor  can  also  be  used  to  inflate 
or  to  reduce  the  aggregated  size  estimate  for  a particular 
functional  category  or  for  an  entire  simulator  package.  The 
relative  complexity  factor  is  interactively  provided  to 
SIMSIZ  by  the  designing  software  engineer.  Guidance 
concerning  the  use  of  weighting  factors  and  complexity 
factors  is  provided  in  Section  VII  of  the  SIMSIZ  User's 
Manual  (see  Appendix  A). 

A SIMSIZ  user  can  more  accurately  predict  software 
package  size.  It  allows  him  to  scan  the  module  categories 
in  the  data-base  directory  and  to  identify  each  module 
data-record  in  the  data  base  which  he  wishes  to  include  in 
his  new  simulator  design.  Once  all  appropriate  modules  have 
been  selected  and  marked,  a conventional  sizing  run  can  be 
initiated;  only  the  marked  modules  will  be  incluued  in  the 
computations.  The  modules  selected  from  the  data  base  will 
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retain  their  mark  for  later  access  should  the  designer 
desire  to  modify  his  proposed  software  package. 


1 


A conventional  sizing  run  is  an  accounting  function 
which  aggregates  totals  from  tne  actual  timing  and  sizing 
data  contained  in  each  user  selected  module.  These  data  may 
be  modified  by  the  user  by  applying  adjustment  factors  which 
he  supplies  during  the  run.  Section  VII  of  Appendix  A 
contains  the  equations  which  show  how  the  conversion  factors 
for  computer  speed,  computer  word  size,  and  programming 
language  are  applied  to  the  module  data. 

The  designer  may  also  use  an  engineering  estimated 
value  for  a particular  module.  The  use  of  this  feature  is 
envisioned  for  the  design  of  functional  subsystems  not  pre- 
viously performed  by  simulators  such  as  launch,  monitoring, 
and  scoring  of  cruise  missiles. 

SIMSIZ  can  extract  information  sorted  on  any  key 
field  or  any  combination  of  key  fields  maintained  witnin 
each  aata-record  (i.e.,  type  simulator,  year  of  latest  data 
entry,  major  system  function,  subsystem  function,  or  alpha 
designator).  This  versatile  feature  underscores  the  effec- 
tiveness of  SIMSIZ  as  a MIS.  For  instance,  if  the  manager 
wishes  to  know  the  average  size  of  all  the  modules  in  system 
Navigation,  subsystem  TACAN,  for  fighter  type  simulators 
representing  software  technology  of  the  past  two  years,  such 
information  could  be  supplied  by  module  description  and 
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alpha  designator.  See  Section  IV  of  Appendix  A for  instruc- 
tions on  the  Select  function  of  SIMS I 2 . 

In  addition  to  the  software  sizing  and  MIS  features, 
SIMSIZ  provides  the  user  with  the  capability  to  update  or 
modify  existing  data-records . New  information  can  be  added 
to  the  data-base  either  by  adding  a new  module  to  an  exist- 
ing simulator  package  or  by  adding  a new  simulator  package. 
Complete  instructions  are  contained  in  Section  III  of  the 
SIMSIZ  User's  Manual. 

Our  intent  was  to  make  the  system  as  flexible  and  as 
easy  to  maintain  as  possible.  However,  a full  understanding 
of  data-base  maintenance  can  only  be  gained  by  studying  the 
SIMSIZ  User's  Manual  and  by  exercising  the  system.  In 
SIMSIZ' s role  as  a software  sizing  model,  the  interactive 
sequences  are  sufficiently  descriptive  that  an  occasional 
user  can  design  a simulator  software  system  with  minimal 
reference  to  the  user's  manual. 

The  SIMSIZ  model  assumptions  are  as  follows: 

1.  There  have  been  no  major  technological  break- 
throughs in  computer  software  production  that  would  signif- 
icantly reduce  the  amount  of  program  instructions  needed  to 
perform  a given  function.  Minor  improvements  in  coding 
efficiency  can  be  compensated  for  with  weighting  factors  or 
complexity  reduction  factors. 


2.  The  update/delete  capability  of  SIMSIZ  will  be 
exercised  to  insure  that  current  data  from  ongoing  and  new 
simulator  contracts  are  contained  in  the  data  base. 

General  Model  Verification 

Model  verification  was  accomplished  in  three 
phases.  The  first  phase  consisted  of  internal  tests  of  the 
data  base  and  the  SIMSIZ  data  manipulation  routines.  The 
second  phase  tested  the  software  sizing  feature.  The 
update/delete  routines  that  modify  the  data  base  were 
exercised  in  the  final  phase  of  verification. 

Phase-one  testing  was  conducted  at  tne  subprogram 
level.  Each  subprogram  in  the  SIMSIZ  software  package  was 
tested  individually  for  functional  validity,  positive  error 
recovery,  logical  accuracy,  and  the  maintenance  of  data-base 
integrity.  The  manipulation  routines  were  used  to  modify 
and  update  errors  discovered  in  the  data  base  during  the 
line-by-line  data-base  audit.  Data-base  integrity,  after 
the  modifications  and  updates  were  completed,  was  verified 
against  source  documents  and  data  base  format  requirements. 
The  successful  completion  of  these  tests  constituted 
verification  of  the  manipulation  subroutines. 

Phase-two  testing  consisted  of  an  evaluation  of  the 
software  sizing  feature.  SIMSIZ  was  used  to  rebuild  eacn  of 
the  simulator  software  packages  contained  in  the  data  base. 
Each  rebuilt  simulator  package  was  compared  to  the  source 
documents  and  found  to  be  identical.  This  procedure 
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verified  the  integrity  of  the  three  Run  options  of  SIMSIZ 
(see  Appendix  A,  Section  VII  for  an  explaination  of  the  Run 
options ) . 

Once  the  sizing  tests  had  been  successfully 
accomplished,  the  final  phase  of  model  verification  was 
undertaken.  This  phase  tested  the  data  base  update/delete 
routines  used  for  file  modification  and  maintenance.  The 
most  current  data  changes  to  the  simulator  software  programs 
still  in  Development  were  entered  into  the  SIMSIZ  data 
base.  The  correct  operation  of  the  modification  routines 
was  verified  through  examination  of  the  data  base  extracted 
with  utility  dump  routines  (see  Appendix  A,  Section  VIII  for 
an  explaination  of  utility  dump  routines).  The  data-base 
listings  were  examined  and  found  accurate;  this  concluded 
the  three-phased  model  verification  procedure. 

Meeting  the  Research  Objectives 

The  four  specific  research  objectives  were  satisfied 
by  the  successful  completion  of  the  SIMSIZ  validation  tests. 
The  broad  objective  of  the  research  was  to  provide  a para- 
metric software  sizing  tool  to  assist  in  estimating  simula- 
tor software  acquisition  costs.  The  output  from  SIMSIZ  can 
be  used  to  manually  calculate  simulator  software  acquisition 
costs;  it  could  also  be  used  as  inputs  to  one  of  several 
software  cost  models  discussed  earlier. 
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CHAPTER  III 


THE  APPLICATION  OF  SIMSIZ 


Data  Base  Verification  and  Update 


The  Build  function  of  SIMSIZ  was  used  to  initialize 
. 5 

the  data  base,  sequential  permfiles  were  created  to  tempo- 
rarily store  the  data  records  for  each  of  the  simulator  pro- 
grams. Listings  of  the  data  records  on  the  permfiles  were 
compared,  record-by-record,  with  the  source  documents.  This 
line-by-line  audit  comprised  the  data  record  verification  of 
the  unformatted  records  on  the  permfiles.  The  Add  function 
of  SIMSIZ  was  used  to  retrieve  the  unformatted  data  records 
from  the  permfiles  and  to  add  them  to  the  data  base  in  tne 
proper  format.  The  validity  of  the  Add  function  was  deter- 
mined by  successfully  completing  the  data  retrieval  and 
data-base  update  tasks. 

Data  verification  at  the  aggregate  level  was  accom- 
plished using  several  SIMSIZ  functions.  The  select  function 
was  used  to  make  separate  selections  of  each  simulator 
program  contained  in  the  data  base.  Each  selection  was 
written  to  the  TEMP  file  and  then  transferred  to  a permfile 

5Permfiles  are  permanent  files  residing  on  disk 
space  allocated  to  the  user.  Once  created,  the  file  remains 
until  the  user  releases  the  file  by  name. 
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using  the  SIMSIZ  PUT  function.  A hard  copy  of  the  permfile 
contents  was  then  obtained  using  utility  dump  routines. 


The  printouts  of  all  data-base  records  for  each 
simulator  were  reviewed  for  commonality  with  the  source 
documents  (this  verified  the  Add  routine)  and  given  to  their 
respective  program  managers  for  evaluation. 

The  errors  and  omissions  discovered  during  the  first 
data-base  verification  process  were  corrected  on  the  source 
data  permfiles.  The  Build  and  the  Add  functions  were  used 
to  reinitialize  the  data  base  and  to  write  the  revised  data 
records  onto  the  data  base.  The  Modify  function  could  have 
been  used  to  update  the  original  data  base.  However,  due  to 
the  number  of  changes  required,  it  was  easier  to  simply 
rebuild  the  data  base. 

A similar  verification  process  was  performed  on  the 
revised  data  base.  Minor  errors  were  corrected  using  the 
SIMSIZ  Modify  function.  ^ 

Management  Information  System 

The  use  of  SIMSIZ  as  a Management  Information  System 
(MIS)  is  limited  only  by  the  user's  imagination  and  the 
content  of  the  data  base.  Some  of  the  MIS  capabilities 
envisioned  by  the  oesigners  include:  to  give  software 
engineers  and  management  quick  access  to  the  size  and  timing 
requirements  of  all  simulator  programs,  to  make  comparative 
analysis  among  contractors,  to  analyze  the  effects  of  using 
different  computers  on  a given  software  program,  to  predict 

26 


the  effects  of  allowing  a contractor  to  change  computer 
languages,  and  to  provide  a tool  that  management  can  use  to 
monitor  the  growth  trend  in  software  size  and  timing.  Table 
2 reflects  the  growth  trend  in  software  size  of  some  of  the 
simulator  systems  recently  completed  or  still  in 
development. 

Software  management  personnel  can  use  SIMSIZ  to 
monitor  program  progress  in  the  temporary  absence  of  their 
software  engineers.  With  the  high  turnover  of  software 
engineers,  the  transfer  of  program  management  responsibility 
is  enhanced  by  the  standardized  handling  of  data  and 
software  program  information. 

A comparative  analysis  of  historical  performances  by 
contractors  provides  useful  information  in  evaluating  future 
contract  proposals.  This  might  include  their  selections  of 
computers,  their  history  of  requesting  waivers  to  coding 
programs  in  FORTRAN,  and  the  historical  growth  rate  of  their 
previous  simulator  contracts.  The  essence  of  using  SIMSIZ 
in  a MIS  capacity  is  to  have  the  right  information  readily 
accessible  to  the  right  people  at  the  right  time. 

A Software  Package  Sized 

SIMSIZ  was  designed  as  a software  sizing  tool.  The 
skill  and  experience  of  the  user  is  the  primary  factor  in 
developing  a realistic  size  estimate.  A software  engineer, 
given  sufficient  time  to  consult  aircraft  technical  manuals 
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represent  actual  size  of  operational  simulator  systems 


and  RFP  specif icat ins , could  desiyn  a nighly  detailed  and 
realistically  sized  software  package  using  SIMSIZ. 


i| 
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The  conceptual  basis  of  the  model  is  that  similar 
functions  of  similar  systems  generally  require  a similar 
amount  of  computer  instructions,  data  storage,  and  central 
processor  time.  The  validity  of  this  assumption  was 
demonstrated  by  redesigning  an  Operational  Flight  Trainer 
(OFT)  based  upon  aata  from  similar  trainers. 

The  F-15  simulator  was  selected  to  exercise  the 
predictive  feature  of  SIMSIZ  for  several  reasons:  it  was 
the  most  recent  OFT  to  become  operational,  the  F-15 
contractor's  original  proposal  was  available,  data  on  the 
actual  size  and  timing  values  at  the  Ready  for  Training  Date 
was  acquired. 

The  validation  test  using  the  F-15  was  designed  to 
evaluate  the  use  of  SIMSIZ  under  the  least  favorable 
conditions  (inexperienced  user  and  a short  time  suspense). 

Cliff  Patterson,  an  ENETC  software  engineer,  agreed 
to  design  a software  package  to  test  the  use  of  SIMSIZ.  Mr. 
Patterson,  a relatively  new  employee  of  ENETC,  was  chosen 
because  he  was  unfamiliar  with  the  details  of  the  F-15 
program.  He  was  given  the  contractor's  proposal  for  the  F-15 
simulator.  This  scenario  simulated  receiving  a short 
suspense  request  to  evaluate  a contractor's  proposal  for  a 

g 

ENETC  is  the  office  symbol  for  the  ASD  software 
engineers  assigned  to  the  Directorate  of  Engineering. 
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new  Operational  Flight  Trainer.  lie  was  given  two  days  to 

become  familiar  with  the  F-15,  to  design  his  plan  for 

sizing,  and  to  exercise  SIMSIZ  to  predict  the  software  size 

and  timing  requirements  for  the  F-15.  Table  3 summarizes 

7 

the  size  estimate  of  his  SIMSIZ  run.  Values  for  the 
contractor's  original  proposal  anu  the  F-15's  actual 
operational  size  are  included  for  comparison. 


TABLE  3 


SIMSIZ  VALIDATION  TEST  RESULTS 


Comparison 

Values 


Original  estimate 
SIMSIZ  estimate 
Actual  size^ 


Instructions  Data  Timing 
(bytes)  (bytes)  (msec/sec) 


325,774 

592,605 

492,105 


232,277  1,849.06 
230,375  2,053.65 
222,675  3,251.70 


Original  as  a % of  actual  66.2  * 


SIMSIZ  as  a % of  actual 


120.4  % 


104.3  « 


103.5  % 


56.9  % 
63.2  % 


values  were  taken  from  the  contractor's  original 
proposal  provided  by  ENETC ( 6 ) . 

2 

Values  were  taken  from  contract  documentation 
provided  by  ENETC ( 6 ) . 


See  Appendix  D for  Mr.  Patterson's  sizing  plan 
developed  at  the  functional  module  level. 


SECTION  IV 


CONCLUSIONS  AND  RECOMMENDATIONS 


User's  Evaluation  of  SIMSIZ 

The  primary  users  of  SIMSIZ  are  the  software 

engineers  in  ASD/ENETC,  attached  to  the  SIMSPO.  Bob 

Cameron,  branch  chief  of  ENETC,  assigned  one  of  his  software 

engineers,  Dave  Butler,  to  assist  in  data  gathering, 

conceptual  model  design,  and  Operational  Test  and  Evaluation 

(OT&E).  Mr.  Cameron  summarized  his  assessment  of  the  model 

with  the  following  comments. 

SIMSIZ  will  be  very  useful  to  tne  design  engineers 
as  a software  sizing  and  evaluation  tool.  Additionally, 
it  is  tne  basis  upon  which  I intend  to  expand  our  effort 
to  computerize  information  seriously  needed  for 
management  of  software  development.  Its  use  as  a MIS 
will  be  invaluable.  It  provides  easy  access  to  the 
current  status  of  simulator  programs  on  contract.  In 
this  capacity  it  is  especially  valuable  for  maintaining 
management  continuity  during  the  temporary  aosences  of 
the  software  program  managers.  SIMSIZ' s flexibility  in 
data-base  management  more  than  anything  will  insure  its 
continued  use  and  further  refinement.  I have  applied 
for  increased  manning  under  the  Student-Summer  Aid 
Program  to  exercise  SIMSIZ  and  to  develop  its  potential 
[6]  . 


A more  technical  evaluation  was  made  by  Mr.  Butler 
during  the  OT&E  phase. 

The  sizing  validation  tests  made  on  the  F-15 
proposal,  though  very  supportive  of  the  conceptual 
design  of  SIMSIZ,  do  not  accurately  measure  the  validity 
or  potential  of  the  model.  Two  variables  within  the 
model,  deemed  important  to  a valid  output,  are  currently 
using  default  values  of  1.0:  the  CPU  Timing  Conversion 
Factor  and  the  computer  language  conversion  factor. 
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ENETC  personnel  have  arranged  for  the  necessary  values 
to  be  provided  by  the  simulator  manuf acturers  for  later 
inclusion  in  SIMSIZ.  As  a general  software  sizing  tool, 
SIMSIZ  reduces  design  time  to  a third  of  w hat  it  has 
been  and  makes  available  ten  times  the  information  a 
designer  normally  has  upon  which  to  base  his  engineering 
estimate.  The  numerical  validity  of  the  model  is 
dependent  upon  the  experience  of  the  user  and  the 
refinement  of  the  aforementioned  variables.  The 
conceptual  validity  was  unquestionably  established  by 
the  short-suspense  F-15  OT&E  scenario. 

The  benefits  derived  from  this  research  are 
numerous.  The  Standardized  Module  Categories  developed 
are  being  recommended  to  contractors  as  a preliminary 
measure  toward  a mandatory  standard  for  development  and 
reporting.  Our  data  on  all  available  simulator  programs 
has  been  organized  into  the  standard  module  categories 
and  computerized.  We  have  been  given  an  extremely 
flexible  software  sizing  tool  that  doubles  as  a 
data-base  manager,  and  a management  information  system. 
The  addition  of  the  CPU  and  language  variables  will 
culminate  an  excellent  piece  of  applied  research  [5] . 


Research  Conclusions 

Information  gained  during  the  design,  development, 
and  operation  of  SIMSIZ,  provided  the  oasis  for  the 
following  five  conclusions. 

1.  The  status  reports  of  simulators  under 
development  at  the  time  of  this  research  provided  sufficient 
descriptive  detail  to  logically  oryanize  most  of  the 
software  modules  into  the  Standardized  Functional 
Categories.  It  is  conceded  that  a few  of  tne  modules 
probably  performed  functions  in  two  or  more  of  tne  standard 
module  categories.  If  so,  this  would  degrade  the  accuracy 
of  the  conclusion  derived  from  the  data  base.  However, 
sufficient  consistency  in  reporting  enabled  the  researchers, 
with  the  support  of  the  respective  software  program 


managers,  to  construct  a comparatively  reliable  data  base 
upon  which  the  second  conclusion  was  based. 

2.  Similar  categories  of  simulators,  such  as  CPTs 
and  OFTs,  require  similar  amounts  of  computer  instructions, 
data  storage,  and  CPU  time  to  simulate  basic  aircraft 
functions.  The  degree  of  similarity  is  dependent  upon  the 
accuracy  of  the  data  base  with  respect  to  the  placement  of 
modules  into  the  Standardized  Functional  Categories.  The 
basic  aircraft  functions  considered  very  reliable  include 
the  following  Standardized  Functional  Categories:  Auxil- 
iary/External Power,  Communications,  Engines,  Electrical 
Power,  Environmental,  Flight  Controls,  Fuel  Systems, 
Hydraulics,  Landing  Gear,  Motion,  and  Radar.  The  remaining 
categories  were  suspected  of  some  crossover  into  other 
functional  areas.  However,  at  the  simulator  system  level, 
the  data  base's  accuracy  was  verified. 

3.  The  high  reliability  of  tne  data  base  at  the 
system  level  substantiated  the  conclusion  that  a collective 

software  size  estimate  aggregated  from  a functional  level 

< . 

will  provide  a realistic  estimate  of  simulator  software 
size. 

4.  The  size  of  software  programs  tend  to  expand 
during  development.  The  cause  is  usually  attributed  to  user 
generated  ECPs.  Although  the  evidence  was  not  conclusive, 
sufficient  instances  of  growth  were  revealed,  in  which  ECPs 
were  not  a factor,  to  suggest  that  contractors  tend  to 
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underestimate  the  amount  of  software  required  to  provide  the 
specified  simulation  tasks. 

5.  SIMSIZ  is  a reliable  software  management  tool 
that  can  be  used  to  improve  software  size  estimates,  as  a 
Management  Information  System,  and  as  a data-base  management 
system. 

Recommended  Changes  to  Data  Reporting 
This  research  disclosed  that  there  was  very  little 
consistency  in  reported  data  among  the  various  simulator 
programs.  A consistent  scheme  of  data  reporting  must  be 
established  to  provide  the  comparability  necessary  for 
effective  software  management  decisions.  The  recommendation 
of  this  research  is  to  use  the  established  Standardized 
Functional  Module  Categories,  defined  in  Appendix  B,  as  the 
standard  level  for  simulator  software  development  and 
reporting.  Design  flexibility  within  the  defined  functional 
levels  should  be  given  to  the  contractors  to  facilitate 
innovative  software  designs  which  simulate  the  standard 
aircraft  functions.  Development  and  reporting  standards 
should  be  contained  in  the  RFPs  upon  which  manufacturers 
base  their  bids  for  contract. 

Recommended  Areas  for  Future  Research 
The  broad  objective  of  this  research  was  to  provide 
a parametric  software  sizing  tool  to  assist  in  estimating 
simulator  software  acquisition  costs.  This  was 
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accomplished,  however  several  factors  in  determining 
reliable  estimates  of  acquisition  costs  remain  to  be 
studied. 

Research  is  needed  in  the  area  of  translating 
software  size  into  manhours  required  to  code  the  software 
packages.  Contractor  labor  rates  and  overhead  rates  are 
required  to  generate  realistic  software  cost  estimates. 

A second  area  badly  in  need  of  research  is  simulator 
life  cycle  costs  (LCC).  SIMSIZ  provides  the  capability  for 
reliable  software  size  estimates,  which  is  one  of  the  more 
sensitive  variables  for  life  cycle  costs.  An  effort  to 
interface  SIMSIZ  with  some  of  the  available  LCC  mouels  would 
make  an  interesting  and  highly  useful  research  effort. 
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SECTION  I 


GENERAL  INFORMATION 

Introduction 

This  user's  manual  has  been  developed  as  a 
quick-reference  guide  to  the  capabilities  and  limitations  of 
SIMSIZ.  SIMSIZ  is  a collection  of  computer  programs 
maintained  on  the  CREATE  computer  system.  The  manual 
assumes  that  the  user  is  somewhat  familiar  with  data 
processing  concepts  such  as:  time-shariny  operations,  file 
space  allocation,  sequential  and  random  access  files,  data 
fields  and  records,  and  modularized  software  packages.  It 
also  assumes  that  the  user  is  familiar  with  the  concept  of 
sizing  a software  package  using  the  Standardized  Functional 
Module  categories  defined  in  Appendix  3 or  the  thesis.^- 

The  user  must  access  and  execute  SIMSIZ  using  a 
time-sharing  system  (TSS)  terminal;  outputs  are  designed  for 
a TSS  printer,  with  the  exception  of  utility  dump  routines 
explained  in  Section  VIII.  It  is  recommended  that  a 
terminal  with  a hard  copy  printer  be  used  for  subsequent 
review/analysis. 

1Frey,  Captain  Gregory  N. , USAF,  and  Captain  Kenneth 
L.  Wildung,  USAF,  "A  Parametric  Management  Tool  For 
Estimating  Simulator  Software  Size,"  Unpublished  master's 
thesis,  LSSR  4-79,  AFIT/LSG,  Wright-Patterson  AFB , OH,  June 
1979. 
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A typical  software  sizing  plan  for  a user  unfamiliar 
with  SIMSIZ  follows: 

1.  Review  all  of  Section  I of  this  manual. 

2.  Create  pernifiles  if  necessary,  in  accordance 
with  Sections  I,  II,  and  III  of  this  manual. 

3.  Determine  which  functional  categories,  defined 
in  Appendix  B of  the  thesis,  are  required  by  the  Proposed 
Software  Package  (PSP). 

4.  Develop  a sizing  plan,  by  function  code,  around 
existing  data  available  through  the  use  of  the  Select 
routine  (see  Section  IV). 

5.  Select  one  of  the  three  Run  options,  explained 
in  Section  VII,  and  proceed  with  the  instructions  for  the 
selected  option.  Option  one  provides  for  sizing  using  all 
the  data  in  the  data  base.  Option  two  is  similar  to  option 
oue  except  that  the  user  can  run  against  particular  data 
which  he  has  chosen  with  the  select  routines.  Option  three 
allows  for  complexity  and  weighting  factor  adjustments  to 
the  records.  In  addition,  new  records  can  be  created  and 
stored  in  the  data  base  for  future  analysis/refinement. 

6.  Use  the  results  of  the  sizing  run  (or  multiple 
sizing  runs)  to  refine  the  PSP  to  the  user's  satisfaction. 

The  remainder  of  the  sections  in  this  manual  provide 
instructions  on  data  base  management  and  the  use  of  SIMSIZ 
in  obtaining  management  information.  The  respective  section 
titles  describe  their  respective  functions. 
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How  to  Log-On  to  CREATE  and  SIMSIZ 


It  is  assumed  tnat  the  user  is  familiar  with  losing 
on  to  the  CREATE  system  to  include  dialing  the  correct 
telephone  number  and  connecting  the  terminal,  through  the 
modem,  to  the  telephone  line.  Throughout  this  user's  manual 
the  required  user  responses  to  system  inquiries  are 
underlined.  A carriage  return  (push  the  Return  key)  is 
required  to  terminate  an  entry.  The  following  is  a sample 
CREATE/SIMSIZ  Log-On  sequence. 

STATION  ID- PA  ( PB , PC,  etc.,  can  be  used) 

user  id  -SIMCOM 

password-MESWHK 

problem  no.-RMfBItS 

SYSTEM?  FORT  N 

READY 

* 

At  this  point  the  user  has  Logged-On  to  CREATE  ana 
is  at  what  is  termed  the  'star'  (*)  level.  He  must  now 
start  the  SIMSIZ  program. 

RUN  SIMSIZ 

ENTER  CAT/ FILE  STRING  OF  DATA  BASE  FILE,  FOLLOWED  BY 
= DATABASE; 

WHAT  IS  THE  MAXIMUM  NUMBER  OF  CHARACTERS/ LINE  YOUR 
TERMINAL  CAN  PRINT? 

= 80 

(This  response  determines  the  format  used  by  SIMSIZ  to 
generate  listings  of  data  records.  Any  number  less  than  120 
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causes  the  output  to  be  formatted  for  an  80-column  device. 
If  the  nur.iber  is  greater  than  or  equal  to  120  the  output  is 
formatted  for  132  columns.) 

HAS  THIS  FILE  BEEN  INITIALIZED  (Y  OR  N) ? 

»Y 

(If  the  answer  to  this  question  is  'Y',  SIMSIZ  reads  certain 

sectors  of  the  data-base  file  and  loads  header  information 

into  the  COMMON  areas  used  by  the  SIMSIZ  routines.  Answering 

*Y'  implies  that  the  data-base  file  has  been  initialized  by 

the  SIMSIZ  Build  function  (see  Section  II).  Normally  tne 

correct  response  here  would  be  'Y'.  When  building  a new 

data  base,  not  yet  initialized  by  the  Build  function,  the 

response  MUST  be  'N'.  A ' Y'  response  will  abort  the  run.) 

WELCOME  TO  PROGRAM  SIMSIZ.  WOULD  YOU  LIKE  INSTRUCTIONS 
(Y  OR  N)? 

= N 

(See  the  next  section  on  ootaining  instructions  from  SIMSIZ.) 
FUNCTION? 

s 

(Respond  to  "FUNCTION?"  with  your  desired  SIMSIZ  function.) 


| 


Er 
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How  to  Obtain  Instructions  for  SIMSIZ 


r 


■ 

j- 
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Each  of  the  major  functions  performed  by  SIMSIZ 
(adding  records,  selecting  records,  modifying  records,  etc.) 
have  abbreviated  instructions  contained  within  their 
respective  programs.  There  are  several  ways  of  obtaining 
instructions. 

After  each  log-on,  SIMSIZ  will  ask  the  user  if  he 
wants  instructions.  A 'Y1  answer  will  receive  general 
instructions  on  all  SIMSIZ  functions.  When  selecting  a 
particular  function  (for  example  'A'  for  Add)  the  Add 
subroutine  asks  if  the  user  wants  detailed  instructions. 
This  will  occur  each  time  he  initiates  a new  function.  The 
process  will  continue  until  an  'N'  response  to  the 
'Instructions?'  question  is  given.  After  an  'N'  response, 
the  user  will  no  longer  be  asked  whetner  he  wants 
instructions.  (Note:  Responding  witn  an  'N'  to  the 
'Instructions?'  question  during  Log-on,  will  prevent  the 
question  from  being  asked  again.) 

A user  can  return  to  the  "Instructions?"  mode  by 
responding  'I'  to  the  "FUNCTION?"  question.  In  the  case  of 
the  'R'  or  RUN  function  the  response  to  obtain  instructions 
is  '4' . 

Responding  to  Questions  Asked  by  SIMSIZ 

When  SIMSIZ  expects  an  input  from  the  terminal,  it 
will  prompt  the  user  by  typing  an  equal  sign  (*)  in  column 
one.  SIMSIZ  types  the  question  on  one  line  and  the  '■'  on 
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the  next  line.  Occasionally,  when  the  CREATE  system  is  very 
busy,  there  may  be  an  appreciable  delay  between  the  typing 
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of  the  question  and  the  typing  of  the  prompting 
character.  A response  entered  before  the  '='  is  typed  will 
be  ignored  by  the  system.  Always  wait  until  the  1 ='  has 
been  typed  before  entering  your  response. 

Permfiles  and  Tempfiles 

There  are  two  major  types  of  files  which  can  be 
created  and  used  on  the  CREATE  computer  system;  permfixes 
(permanent  files  - which  remain  in  the  system  until  they  are 
released  by  the  user)  and  tempfiles  (temporary  files  - which 
are  released  automatically  by  the  system  when  the  user 
logs-off  or  when  the  system  goes  down  for  repairs).  The 
SIMSIZ  data-base  file  is  a permfile  and  any  files  which  a 
user  creates  will  also  be  permfiles. 

Some  functions  of  SIMSIZ  require  additional  tempfile 
space  to  temporarily  hold  selected  data  records.  SIMSIZ 
automatically  requests  needed  tempfile  space  from  the  CREATE 
operating  system.  The  SIMSIZ  documentation  refers  to  tnis 
space  as  the  SIMSIZ  'TEMP*  file.  Any thing  written  to  this 
file  during  execution  is  lost  when  the  user  logs-off 
SIMSIZ.  Therefore,  if  there  is  information  on  tne  TEMP  file 
that  the  user  wisnes  to  retain,  it  must  be  transferred  to  a 
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permfile  (by  using  the  SIMSIZ  PUT  function)  before  the  user 
loys-of f . 

Permfiles  cannot  be  created  by  SIMSIZ.  Any 
permfiles  that  the  user  anticipates  a need  for  during  a 
SIMSIZ  run  must  be  created  before  initiating  the  SIMSIZ 
program.  See  Section  II  of  this  user's  manual  for  detailed 
information  and  examples  of  how  to  create/release  permfiles. 

How  to  Log-Off  of  SIMSIZ  and  CREATE. 

The  recommended  method  of  terminating  a SIMSIZ  run 
is  to  enter  'E',  for  End,  at  the  FUNCTION?  level.  Pushing 
the  'break'  key  on  the  terminal  will  not  terminate  SIMSIZ; 
the  program  returns  immediately  to  the  FUNCTION?  level. 
Pushing  the  break  key  is  an  approved  method  of  prematurely 
terminating  most  SIMSIZ  functions  (List,  Run,  Get,  etc.)  and 
will  normally  not  cause  any  problems  or  disruptions  to  the 
data  base.  However,  the  user  is  cautioned  that  pushiny 
'break'  while  SIMSIZ  is  performing  a function  tiiat  writes  to 
the  data  base  (for  example,  the  Add  or  Update  functions), 
will  prematurely  terminate  (abort)  that  function  and  could 
result  in  a disparity  between  the  actual  data  on  the 
data-base  file,  and  what  the  directory  and  header  sections 
say  is  on  the  file.  A good  rule  is:  don't  use  the  'break' 
key  to  terminate  a function  unless  it  is  an  innocuous 
function  like  List,  Select,  Run,  or  Get. 
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Each  function,  when  completed,  will  either  return 
automatically  to  the  FUNCTION?  level  or  allow  the  user  to 


return  at  his  discretion,  by  entering  ' E1. 


Once  the  user  has  entered  'E'  at  the  FUNCTION? 


level,  SIMSIZ  will  write  certain  data  (from  the  COMMONS) 


back  to  the  data  base,  de-allocate  the  data-base  file,  and 


terminate  its  own  execution.  The  user  will  then  be  prompted 


by  the  CREATE  operating  system  with  the  character.  Type 


'BYE'  to  Log-Off  the  Create  system  when  prompted  by  the 
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SECTION  II 
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INITIALIZING  A DATA  BASE 

How  to  Allocate/Release  File- 
space  unaer  CREATE 

All  files  in  the  CREATE  system  are  either  random 
access  or  sequential  access  files.  The  files  that  are  used 
as  data-base  files  must  be  created  as  random  access 
permfiles.  Files  created  as  holding  files  or  as  source  data 
files  must  be  sequential  access  files.  The  only  files  that 
you  as  a user  will  create  are  sequential  access  permfiles. 

The  standard  unit  of  file  size,  when  dealing  with 
the  CREATE  system,  is  a Block  or  Little  Link  (LLINK).  Each 
LLINK  is  320  words  in  size  (a  word  is  36  bits  long).  A file 
10  LLINKS  in  size  can  hold  3,200  words  of  data. 

The  minimum  recommended  size  of  a da*-  base' f ile  is 
10  LLINKS.  All  data-base  files  require  eight  sectors  for 
overhead.  A 10  LLINK  file  would  have  room  for  approximately 
170  data  records. 

Sequential  access  (or  "Linked"  files)  may  be  created 
at  one  size,  with  the  added  specification  as  to  the  maximum 
size  to  which  the  file  may  "grow".  When  a user  creates  a 
sequential  permfile  he  may  set  the  current  size  at  1 LLINK 
and  the  maximum  size  at  10  LLINKS.  When  tne  1 LLINK  becomes 
full,  the  file  space  will  automatically  grow,  in  1 LLINK 
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increments,  to  accommodate  additional  data.  The  maximum 
size,  in  this  example,  has  been  set  by  the  user  at  10 
LLINKS.  The  file  will  not  grow  beyond  that  size. 

Before  attempting  to  create  a permfile  or  build  a 
new  data  base  using  SIMSIZ,  a user  must  first  create  a 
random  access  permfile  on  the  CREATE  system.  This  is  done 
as  follows:  Log-On  to  the  CREATE  system  as  explained  in 
Section  I.  When  the  system  responds  with  enter: 


ACCESS 

FUNCTION?  CF, /Filename, R,B/nnn, nnn/, MODE/RAND/ 


Create  a file 1 

Name  of  file  to  be  created 

Give  the  file  general  read  permissions 

Current  size  of  file  in  LLINKS 

Maximum  size  of  file  in  LLINKS 

Required  only  if  file  is  to  be  Random - 
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The  file  name  may  be  up  to  10  characters;  no 
embedded  spaces.  For  random  access  files  current  size  must 
equal  Max  size.  All  values  should  be  entered  as  indicated, 
using  slashes  (/)  and  commas  as  shown,  with  no  spaces 
between  characters.  It  is  not  necessary  to  specify 
" MODE/S EQ/"  for  sequential  files  since  SEQ  is  the  default 
mode. 

If  your  USER  ID  has  sufficient  file  space  available 
to  create  the  file  at  the  "current"  requested  size  and  if 
there  are  no  syntax  or  other  errors  (duplicate  file  name. 
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current  size  yreater  than  Max  size,  etc.),  file  space  will 
be  allocated  as  specified.  The  system  will  respond  with: 
SUCCESSFUL. 

FUNCTION? 

The  system  returns  to  the  FUNCTION?  level  to  offer  the  user 
a chance  to  create  another  file.  The  user  may  return  to  the 
level  by  pushing  the  return  key. 

If  new  files  are  created  indiscriminately  you  will 
eventually  run  out  of  filespace  allotted  to  your  USER  ID.  A 
policy  of  purging  outdated  files  will  provide  room  for  new 
files.  Alternatively  you  may  simply  overwrite  an  old  file 
with  new  data.  Files  may  be  released  at  the  level  by 

entering : 

RELEASE  Filename 

(The  "Filename"  must  be  the  exact  name  of  the  file  to  be 
released. ) 

The  system  will  respond  with: 

FILE  RELEASED-Filename 

The  minimum  recommended  size  of  a data-base  file  is 
10  LLINKS . All  data-base  files  require  eight  sectors  for 
overhead  A 10  LLINK  file  would  have  room  for  approximately 
170  data  records. 

Running  the  SIMSIZ  Build  Function 
After  the  data-base  file  space  has  been  created/ 
allocated,  as  described  in  the  previous  paragraph,  the  file 
space  is  initialized  using  the  Build  (B)  function  of  SIMSIZ. 
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The  following  steps  must  be  performed  in  sequence  to 
accomplish  the  build  task. 

1.  Log-on  as  explained  in  section  I. 

2.  Enter  the  filename  of  the  new  data-base  file  in 
response  to  the  "ENTER  CAT/FILE  STRING  ..."  question. 
(Both  the  USER  ID  and  filename  are  required  only  if  using 
filespace  on  another  USER  ID). 

3.  Give  the  terminal  carriage  size. 

4.  Important — Answer  'N'  to  the  question  "HAS  THIS 
FILE  BEEN  INITIALIZED?" 

5.  Enter  'B'  to  the  FUNCTION?  question. 

6.  Enter  the  name  of  the  new  data-base  file  when 

asked. 

7.  Give  the  size  of  the  data-base  file  you  created. 

8.  Answer  questions  as  appropriate  until  the  build 
task  is  completed  and  the  program  returns  to  the  FUNCTION? 


level. 


SECTION  III 


ADDING  TO  THE  DATA  BASE 


Formatteu  vs  Unformatted  Records 
The  first  question  asked  by  the  Add  function  is,  "Is 
the  data  for  the  records,  to  be  added,  formatted  or 
unformatted?"  Formatted  data  are  data  that  are  in  the  same 
form  as  a standard  SIMSIZ  data  record.  Data  that  have 
passed  through  the  TEMP  file  are  formatted.  For  example, 
the  user  would  have  added  "formatted"  data  if  he  had  taken 
existing  data-base  records,  modified  them,  and  added  them 
back  to  the  original  data  base.  When  adding  records  via  the 
terminal,  they  are  "unformatted"  because  the  fifteen  fields 
of  each  record  can  be  entered  in  any  order.  Likewise,  data 
placed  on  a user  sequential  permfile  using  tne  CREATE  "TEXT 
EDITOR"  function  are  considered  "unformatted"  data. 


Adding  Data  from  Files 

Tempf iles 

To  add  data  from  the  SIMSIZ  TEMP  file  to  tne  data 
base,  give  "TEMP"  as  the  name  of  the  file  containing  the 
data  to  be  added.  Data  on  the  TEMP  file  are  "formatted" 
data  and  will  be  added  even  if  the  user  answered  'U'  to  the 
formating  question.  Delete  marked  records  will  not  be  added 
to  the  data  base. 
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Permf iles 


Formatted  data  records  which  have  been  placed  on  a 
user's  sequential  permf ile  (via  the  SIMSIZ  "PUT"  function), 
may  be  read  from  the  permf ile  and  added  directly  to  the  data 
base  using  the  Add  function. 

Penufiles  may  also  contain  unformatted  data  which 
the  Add  function  reads  just  as  though  they  were  being 
entered  via  the  terminal.  This  option  is  useful  if  the  user 
has  a large  number  of  new  records  to  be  added  to  the  data 
base  and  does  not  wish  to  enter  the  records  one  at  a time. 
Obtain  a listing  (usim,  the  Utility  Dump  routine)  and  verify 
the  data  on  the  permf ile  prior  to  adding  the  data  directly 
to  the  data  base.  Unformatted  data  on  a permf ile  must 
appear  exactly  the  same  as  it  would  when  entered  from  a 
terminal  wit n one  important  exception.  The  first  line  of  an 
unformatted  data  file  must  contain  a series  of  numbers, 
separated  by  commas,  which  explain  the  order  in  which  the 
data  record  fields  are  being  entered.  Fields  for  which 
there  are  no  data  can  be  omitted.  The  Add  program 
resequences  the  data  fields  prior  to  adding  the  data  to  the 
data  oase. 

Adding  Data  from  the  Terminal 

Table  A contains  a description  of  the  various 
data-record  format  specifications.  The  first  fifteen  may  ue 
specified  by  the  user  when  creating  a new  record.  Any  or 
all  of  these  fields  may  be  specified  for  each  record 
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entered.  At  the  beginning  of  the  run  the  user  specifies  the 
order,  by  field  number,  in  which  the  fields  will  be  entered. 
For  example: 

= I.,  3, 10, 5, 7, 2, 6, 8, 4, 9 

would  mean  that  each  line  of  data  entered  from  the  terminal 
will,  contain  fields  1 , 3 ,10 , 5 , 7 ,etc. , in  that  order.  (The 
Add  function  rearranges  the  fields  into  the  proper  order  for 
data  base  record  format. ) 


TABLE  A 

DATA-RECORD  FORMAT 


FIELD  FIELD 

NUMBER  FORMAT  DISCRIPTION 


1 

Al 

2 

A2 

3 

A2 

4 

A8 

5 

Al 

6 

F6 . 2 

7 

15 

8 

15 

9 

F5.1 

10 

F6.2 

11 

15 

12 

15 

13 

12 

14 

A2 

15 

A30 

16 

Al 

17 

Al 

18 

Al 

Simulator  Coue 
Function  Code 
Subsystem  Code 
Mfg  Module  Code 
Program  Language 
Timing  - Mfg  Est 
Instr  - Mfg  Est 
Data  - Mfg  Est 
CPS  - Current 
Timing  - Current 
Instr  - Current 
Data  - Current 
Year  of  Update 
Computer  System 
Comments  Text 
User  Flag  1 
User  Flag  2 
User  Flag  3 


In  addition,  since  fields  eleven  through  fifteen 
were  not  specified,  SIMSIZ  would  enter  default  values  of  a 
blank  for  Alpha  (A)  formats  and  zeroes  for  Integer  (I)  and 
Fixed  Point  (F)  formats.  The  important  point  to  remember  is 
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that  once  the  field  entry  order  has  been  specified,  all 
records  entered  from  the  terminal  must  contain  all  of  the 
specified  fields  in  the  specified  order. 

If  one  or  more  of  the  records  being  added  does  not 
have  data  for  all  of  the  specified  fields,  a value  must 
still  be  entered  for  that  field.  If  it  is  a numeric  field 
enter  "0",  in  lieu  of  a specific  value.  If  it  is  an  alpha 
field  enter  " " la  set  of  quote  marks  with  a blank  between 
them)  to  null  out  the  field. 

Figure  1 is  an  example  of  how  the  records  for  the 
C-141  simulator  were  entered  through  the  Add  function.  Note 
that  the  first  line  contains  tne  order  of  the  fields  being 
entered. 

1,2,4,5,14,11,13,15 

A,CN , ' ', A, Wl, 1897, 75, "RELOCATING  AND  ABSOLUTE  LOADERS" 

A,CR, ' ' , A, Wl, 11775, 75, "COM  STOR,  EXEC,  AND  COM  SUBROUT" 

A,F,P,CD2,A,Wl ,282,75,  "PWR  AVAIL  FOR  CKT  BREAKERS" 

A, EG , DA5 ,A,W1,212,75," ENG  RPK  LOOP" 

• 

Fig.  1.  Sample  Data  Records 
Test  vs  Real  Ada  Function 

The  "test"  inode  of  tne  Add  function  has  been 
included  to  verify  the  sequence  and  the  number  of  data 
fields  on  permfiles  prior  to  adding  the  records  to  the  data 
base.  The  "test"  mode  reads  unformatted  records,  rearranges 
into  tne  order  required  by  the  data  base,  and 


the  fields 
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tests  for  tne  proper  number  of  fields.  If  syntax  or  format 
errors  are  encountered  in  one  of  the  records,  or  if  a field 
was  accidently  excluded,  the  run  will  abort.  The  user  may 
then  correct  the  error  on  the  permfile  and  re-initiate  tne 
test  mode  of  the  Add  function.  This  cycle  would  continue 
until  all  errors  on  the  permfile  are  corrected.  The  user 
then  runs  the  Add  function  in  the  "Real"  mode  ana  adas  tne 
new  records  to  the  data  base  without  the  risk  of  enteriny 
faulty  data. 


SECTION  IV 


SELECTING/LISTING  RECORDS 
FROM  THE  DATA  BASE 

Selecting  Records  from  the  Data  Base 
Records,  when  selected  from  the  data  base  by  the 
Select  function,  are  marked  (with  an  'S'  in  the  status  flag) 
so  that  the  same  set  of  records  can  later  be  retrieved. 
There  are  two  ways  to  select  records  from  the  data  base  and 
place  them  on  the  TEMP  file:  (1)  do  a New  (N)  select 

against  the  data  base  by  specifying  certain  "select  cri- 
teria," or  (2)  do  a Previous  (P)  select  ayainst  the  data 
base  for  a set  of  records  already  marked  with  an  'S'  flay. 
When  an  'N'  select  run  is  made,  records  wnich  do  not  meet 
the  new  selection  criteria  are  marked  with  a 'G'  in  the 
status  flag  thereby  de-select iny  all  records  marked  by  a 
previous  select  run.  The  'P'  select  option,  which  allows 
for  re-selection  of  a previously  selected  set  of  records, 
was  included  for  two  reasons.  First,  checking  the  status 
flag  field  for  an  'S'  is  faster  than  checking  multiple 
fields  against  possibly  complex  selection  criteria. 
Secondly,  if  the  CREATE  system  should  go  down  in  the  middle 
of  your  analysis  you  can  quickly  re-select  your  TEMP  file 
contents  using  this  option. 


When  the  user  specifies  his  selection  criteria  he  is 
telliny  SIMSIZ  what  values,  or  range  of  values,  he  desires 
in  the  records  to  be  selected.  The  values  are  specified  by 
record  field  number.  The  fields  are  referred  to  as  FI,  F2, 
F3,  . . . F18.  If  the  user  desires  to  select  all  the 

records  on  the  data  base  with  a value  of  'A'  in  field  one 
('A'  is  the  code  for  the  C-141  simulator),  he  would  enter 
the  following  strings 
= FI  EQ  'A'# 

(The  "#"  sign  denotes  the  end  or  the  criteria  string.) 

SIMSIZ  would  then  check  field  one  of  every  recora  on 
the  data  base  and  any  records  having  an  'A'  in  that  field 
would  be  marked,  selected,  and  written  to  the  TEMP  file. 

If  the  user  wanted  all  records  with  'a'  or  'J'  in 
field  one  he  would  enter  the  following  string: 

= FI  EQ  'A1  OR  1 J 1 # 

If  he  wanted  'A'  or  'J'  or  'M'  he  enters: 

= FI  EQ  'A'  OR  'J'  OR  'M'# 

The  "OR"  is  referred  to  as  a "Minor  Function  Link" 
since  it  is  not  set  off  by  commas.  The  "OR"  function  is  the 
only  minor  function  link  SIMSIZ  recognizes. 

If  the  user  wanted  to  select  all  records  with  field 
one  equal  to  'A'  and  field  two  (the  function  code)  equal  to 
Hydraulics  (HD)  he  would  enter: 


A',  AND.  F2  EQ  'HD*# 


w 


■ 


\ 


■ 

y 
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The  "AND"  is  referred  to  as  a "Major  Function  Link" 
because  both  Fl  EQ  'A'  and  F2  EQ  'HD'  must  be  true  in  order 
for  a record  to  meet  the  select  criteria.  Note  that  the 
major  function  link  is  set  off  by  commas.  Both  OR  and  AND 
are  acceptaole  major  function  links.  The  'A'  and  'HD'  are 
referred  to  as  alphanumeric  literals  and  are  delimited  by 
quotes.  Fields  one  through  five,  and  fourteen  through 
eighteen  are  alphanumeric. 

When  selecting  records  based  on  numeric  values,  as 
in  fields  six  through  thirteen,  numeric  literals  are 
delimited  by  "/" . For  example: 

= ( F 11  GE  /25U/  , AND,  F10  LE  /5.05/)  ,0R,  F12  EQ  /76/# 
This  string  will  select  all  records  witn  a Current 
Instruction  Size  (Fil)  greater  than  or  equal  to  250,  AND, 
with  Current  Timing  (F10)  less  than  or  equal  to  5. 05  ,0R, 
alternatively,  with  Year  of  Update  (F13)  exactly  equal  to 
seventy-s ix . 

The  permissible  values  for  comparison  functions  are 
the  same  as  appear  in  ANSI  standard  FORTRAN  code:  EQ  (equal 
to),  NE  (not  equal  to),  LT  (less  than),  GT  (greater  than), 
LE  (less  than  or  equal  to),  and  GE  (greater  than  or  equal 
to) . 

Parentheses  may  be  used  to  prioritize  criteria 
within  the  string.  However,  it  is  recommended  that  the  use 
of  parentheses  be  kept  to  a minimum. 
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If  a criteria  string  cannot  be  completed  on  one 
line,  it  may  be  continued  on  the  following  line.  SIMSIZ 
will  continue  to  request  inf ormation  by  prompting  the  user 
with  the  "="  sign  until  it  encounters  tne  "#"  delimiter. 
Some  examples  of  criteria  strings  follow: 

= FI  NE  ' A'  # 

- select  if  field  one  is  any  value  other  than  'A'. 

= FI  GT  'E1# 

- select  if  field  one  has  an  octal  value  greater 

than  'E'  (i.e.,  select  if  FI  'J'  or  'M'). 

= FI  2 LT  F8  # 

- select  if  field  twelve  (Current  data  size)  is  less 
than  field  eight  (Manufacturer's  Estimated  Data  size). 

Listing  Recorcs 

From  the  Data  Base 

There  are  two  output  formats  available  for  listing 
data  records.  The  format  is  selected  by  the  user  during  the 
SIMSIZ  Log-On  procedure.  The  132-column  option,  selected  by 
entering  a number  greater  than  or  equal  to  120,  formats  the 
data  in  single-line  output.  The  SO-column  option,  selected 
by  entering  a number  less  tnan  120,  formats  the  data  into  a 
double-line  output. 

Selecting  List  (L)  at  the  "FUNCTION?"  level  allows 
the  user  to  list  data  from  either  the  data  base,  or  from  the 
TEMP  file.  Within  the  List  function,  the  'A'  option  will 
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list  all  the  records  on  the  data  base.  The  records  will  be 
sequentially  numbered  according  to  their  relative  order  in 
the  data  base.  A listing  may  be  terminated  at  any  time  by 
pushing  the  "break"  key. 

From  the  SIMSIZ  TEMP  File 

The  'T'  option  will  list  the  records  on  the  TEMP  file.  They 
will  be  sequentially  numbered  in  the  order  in  wnich  they 
appear  on  the  TEMP  file. 

The  'R'  option  allows  tne  selective  listing  of  a 
range  of  records  from  the  TEMP  file.  The  user  must  specify 
the  number  of  the  first  and  the  last  records  to  be  listed. 
The  'R'  option  is  also  available  under  the  Modify  function. 
This  listing  capability  is  limited  to  the  Range  mode  of 
operation. 

A user's  sequential  permfile  can  be  listed  using 
SIMSIZ.  However,  it  must  first  be  written  to  the  TEMP  file 
via  the  GET  function.  Note:  only  formatted  data  records  may 
be  listed  by  SIMSIZ.  The  GET  function  reads  the  formatted 
permfile  and  writes  to  the  TEMP  file. 


SECTION  V 


MODIFYING/UPDATING  THE  DATA  BASE 

Data  Records 

Marking,  Changing,  or  Deleting 
Selected  Records 

A data  base  record,  to  be  changed  or  deleted,  must 
first  be  selected  and  placed  on  the  SIMSIZ  TEMP  file.  The 
record  can  then  be  changed,  user-marked,  or  delete-marked 
using  the  SIMSIZ  Modify  (M)  function.  Once  the  records  on 
the  TEMP  file  are  changed  to  the  user's  satisfaction,  the 
SIMSIZ  Update  (U)  function  is  used  to  overwrite  the  original 
record  on  the  data  base  witn  the  modified  record.  When  a 
record  on  the  TEMP  file  is  modified,  its  status  flag  is  set 
to  'M'.  If  a record  is  delete-marked,  its  status  flag  is  set 
to  'D'. 

Updating  the  Data  Base  with 
Selected  Records 

t 

The  Update  function  scans  each  record  on  the  TEMP 
file.  If  a record's  status  flag  is  set  to  'M' , a search  is 
made  for  that  record's  original  location  in  the  data  base. 
When  the  original  record  is  located,  it  is  over-written  with 
the  modified  record.  If  the  record  on  the  TEMP  file  nas 
been  delete-marked,  the  status  flag  in  the  original  record 
is  set  to  'D'  for  delete.  The  delete  count  for  the  proper 
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Function  Code  in  the  directory  is  also  updated.  Once  a 
data-base  record  has  been  deiete-marked  it  cannot  be 
selected  by  the  Select  function.  Records  on  the  TEMP  file 
with  status  flags  other  than  'M'  or  1 D'  are  ignored  by  the 
Modify  function. 


Directory  Section 

Adding,  Changing/  or  Deleting  Entries 

The  SIMSIZ  Directory  Modify  Function  (D)  is  used  to 
add,  change,  or  delete  entries,  by  function  code,  in  the 
directory  section  of  the  data  base.  The  SIMSIZ  Directory 
Section  appears  in  Figure  2.  If  a directory  entry  (for 
example  HD)  is  deleted,  all  of  the  data  records  with  the 
function  code  (ilb)  are  deleted. 

Hew  function  codes  can  be  created;  the  maximum  is  a 
total  of  forty  codes.  Function  codes  are  unique 
two-character  codes.  The  twelve-character  function  names, 
contained  in  the  directory,  can  be  changed  using  the  'D' 
function. 
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Information  Section 


CPU  and  Language  Information 

The  user  selects  the  'H'  function  to  add,  cnange  or 
delete  entries  in  the  header  information  section  of  the  aata 
base.  The  'L'  option  of  the  'H'  function  can  be  used  to 
list  header  subsections  such  as  simulator  type,  type  of  CPU 
used,  language,  and  explanatory  text.  The  'U'  option  of  the 
'll'  function  is  used  to  change,  add,  or  delete  information 
in  tne  header  subsections. 

There  is  space  for  up  to  fifteen  entries  in  the  CPU 
subsection.  Each  data  record  in  the  data  base  contains  a 
two-character  computer  code  which  corresponds  to  one  of  the 
codes  in  the  CPU  information  subsection.  This  information 
is  used  to  standardize  data  units  used  by  the  Run  function 
during  a sizing  run.  Figure  3 contains  the  CPU  and  Language 
information  sections. 

The  Bytes/Word  value  in  a CPU  information  section  is 
tne  conversion  factor  used  to  adjust  the  data  in  fields 
seven,  eight,  eleven,  and  twelve  of  a data  record.  Bytes 
are  used  as  the  standard  for  the  Sizing  function.  For 
example,  if  a contractor  reports  his  sizing  data  on  a 
software  module  in  computer  words,  the  words  are  converted 
to  bytes  using  the  CPU  Byte  Conversion  Factor.  If  a 
contractor  reports  in  bytes,  the  conversion  factor  is  1.0.  A 
byte  is  eight  bits  long.  Hence  a computer  using  32-bit  words 
has  a byte/word  conversion  factor  of  4.0. 
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The  CPU  Timing  Conversion  Factor  is  an  additional 
value  to  be  used  to  adjust  a module's  timing  data  (tielos 
six  and  ten)  to  compensate  foe  differences  in  execution 
speed  of  CPUs.  These  factors  can  be  adjusted  by  the  user. 

The  intent  of  the  Language  Conversion  Factor  is  to 
compensate  for  differences  in  speed  and  size  requirements  of 
modules  that  are  written  in  different  computer  languages. 
These  factors  can  be  altered  by  tne  user  as  necessary.  Up 
to  ten  computer  languages  can  be  included  in  the  language 
subsection. 
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CPU  and  Language  Information 

Sect  i< 

Simulator  System  Information 

The  simulator  information  subsection  contains  space 
for  an  entry  for  each  simulator  maintained  in  the  data 
base.  Figure  4 shows  the  information  contained  in  the 
Simulator  Information  Subsection.  A maximum  of  twenty 
entries  can  be  created.  When  information  on  a new  simulator 
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program  is  incorporated  into  the  data  base,  a new  entry  must 
be  created  in  this  subsection. 

The  complexity  factor  allows  the  users  to  automati- 
cally apply  an  adjustment  to  ail  siziny  runs  ayainst  data 
from  one  or  more  simulators.  Ail  sizes  and  times  in  a data 
record  are  multiplied  by  the  complexity  factor  auriny  a 
siziny  run. 

Each  entry  in  the  simulator  information  subsection 
has  a corresponding  entry  in  the  Text  Information  sub- 
section. Space  has  been  allocated  to  include  text  which 
explains  unique  characteristics  of  each  simulator  program. 
Information  is  entered  into  the  Text  section  one  line  at  a 
time  (up  to  eighty  characters  per  line).  Text  is  saveu  by 
stormy  five  lines  per  sector.  The  user  can  enter  as  mucn 
text  as  he  desires  but  snoulu  bear  in  mind  tnat  eacn  sector 
used  for  text  is  one  less  sector  available  for  stormy  data 
records. 
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SECTION  VI 

SAVING/RETRIEVING  DATA  RECORDS 
ON  PERMFILES 

How  to  Use  the  SIMSIZ  Put  Function 
The  SIMSIZ  Put  (P)  function  takes  formatted  data 
records  from  the  TEMP  file  and  writes  them  to  a user  created 
sequential  permfile.  This  permfile  must  have  been  created 
prior  to  logging-on  to  SIMSIZ.  The  permfile  must  be  large 
enough  to  hold  all  the  records  which  the  user  plans  to  store 
on  the  file.  It  is  suggested  to  create  trie  permfile  with  a 
small  (1  LLINK)  current  size,  but  allow  for  growtn  by 
specifying  a large  (30  LLINK)  maximum  allowable  size  (see 
Section  II).  The  file  can  then  grow,  as  the  Put  Function 
writes  to  the  permfile,  to  the  size  needed  to  hold  all  of 
the  data.  If  30  LLINKS  is  not  large  enough,  the  file  may  be 
modified  or  re-created  with  a larger  maximum  allowable  size. 

There  are  two  options  available  within  the  Put 
Function:  (1)  write  all  (A)  records  on  the  TEMP  file  to  the 
permfile,  and  (2)  write  only  the  records  which  have  been 
modified  (M)  to  the  permfile. 

How  to  Use  the  SIMSIZ  Get  Function 
Tne  Get  function  (G)  reads  formatted  data  records 
from  user-supplied  sequential  permfiles  and  writes  them  onto 
tne  SIMSIZ  TEMP  file.  The  records  must  have  been  previously 
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written  to  the  permfile  by  the  Put  function.  No  fla-js  are 
reset.  All  data  is  transferred  as  ordered  onto  the 
permf ile. 


SECTION  VII 


USING  THE  SIMSIZ  SIZING  FUNCTION 

Option  1 - A Sizing  Run  Using  the 
Entire  Data  Base 

Option  1 performs  a sizing  run  against  the  entire 
SIMSIZ  data  base.  The  sizing  is  reported  by  Function  Code 
(Func  code)  and  by  Simulator  Code  (Sira  code).  If  the  simu- 
lator package  used  in  sizing  the  run  has  no  data  for  a given 
Func  code  then  no  output  is  printed  for  that  combination  of 
Siiu  code  and  Func  code. 

The  values  printed  for  each  SIM  code  are  calculated 
by  the  following  equations: 

Note:  FI  = Field  1 of  the  selected  data  record,  F9 

equals  Field  9,  etc. 

LCF  = Language  Conversion  Factor 
SCF  = Simulator  Complexity  Factor 
CBF  = CPU  Byte  Conversion  Factor 
CTF  = CPU  Timing  Conversion  Factor 

Maximum  Iteration  Rate  = The  maximum  value  of  field  9 

from  among  the  selected  records. 

Current  Total  Time  = Sum  of  F9  X F10  X LCF  X SCF  (over 

all  selected  records). 
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Average  Time  per  Cycle  = Current  Total  Time/Maximum 

Iteration  Rate. 

Current  Total  Instruction  Size  = Sum  of  Fll  X LCF  X SCF 

X CBF  (over  all  selected  records ) . 

Current  Total  Data  Size  = Sum  of  F12  X LCF  X SCF  X CBF 

(over  all  selected  records). 

Manufacturer's  Est.  Timing  = Sum  of  F6  X F10  X LCF  X SCF 

(over  all  selected  records). 

Manufacturer's  Est.  Instruction  Size  = Sum  of  F7  X LCF  X 

SCF  X CBF  (over  all  selected 
records ) . 

Manufacturer's  Est.  Data  Size  = Sum  of  F8  X LCF  X SCF  X 

CBF  (over  all  selected  records). 

Grand  totals  in  all  categories,  except  Max  Iteration 
Rate  and  Average  Time  Per  Cycle,  are  reported  by  Sim  code. 
The  grand  total  values  of  Current  Timing,  Instruction  Size, 
and  Data  Size  are  written  into  the  simulator  information 
subsection  of  the  data  base  each  time  this  option  runs  to 
normal  termination.  A listing  of  the  information  section 
will  provide  totals  for  all  simulator  systeius  in  the  data 
base. 


Option  2 - A Sizing  Run  Using  the 
SIMSIZ  TEMP  File 

The  principle  difference  between  Option  1 and  Option 
2 is  that  Option  2 makes  its  sizing  run  against  records 
contained  on  the  TEMP  file.  Data  are  grouped  and  reported 
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in  the  same  manner.  Output  values  are  computed  using  the 
same  record  fields  and  conversion  factors  as  under  Option 
1.  The  Grand  Totals  are  printed  but  are  not  stored  in  the 
information  subsection  of  the  data  base. 

Option  3 - A Sizing  Run  Using  Selected 
Data  Base  Records 

Complexity  Factor  Option 

This  option  provides  the  flexibility  of  compensating 
for  complexity  factors  during  a sizing  run.  Separate 
complexity  factors  can  be  incorporated  as  the  output  for 
each  Function  Code  is  presented.  The  selected  data  record 
values  are  adjusted  for  complexity  and  written  to  the  TEMP 
file.  Records  can  then  be  modified,  if  necessary,  and  saved 
on  a permfile  or  added  to  the  data  base  as  a new  simulator 
package.  If  no  complexity  adjustment  is  desired  a 
complexity  factor  of  1.0  should  be  entered. 

Weighting  Factor  Option 

This  option  provides  the  capability  to  weight  the 
size  and  timing  data  by  each  Sim  code  at  each  functional 
category.  For  example,  suppose  the  user  is  interested  in 
estimating  the  average  size  of  the  Hydraulics  function  (HD) 
for  a proposed  simulator  package.  From  his  analysis  of  the 
hydraulic  system  complexity  and  specifications,  he  estimates 
that  the  size  should  be  somewhere  between  the  size  of  the 
'HD'  modules  in  the  F-16  and  tne  'HD'  modules  in  the  A-10 
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simulator.  Let's  say  that  he  elects  to  weight  the  results 
in  favor  of  the  F-16  (60/40).  He  would  specify  the  number 
60  for  the  F-16  data  and  the  number  40  for  the  A-10  wnen 
prompted  by  the  program.  Tne  weighted  average  for  the 
estimated  size  of  the  proposed  Hydraulics  function  is  tne 
sum  of  60  percent  of  the  F-16  values,  plus  40  percent  of  the 
A-10  values.  When  the  weighting  option  is  not  used  a 
"simple  average"  of  the  data  values  is  calculated. 

New  Record  Option 

This  option  allows  the  user  to  create  new  formatted 
data  records  from  either  the  simple  or  weignted  average 
generated  by  Option  3.  If  the  user  wishes  to  create  new 
records  during  a run,  he  supplies  SIMSI2  witn  a single 
alphanumeric  character  to  be  used  as  tne  Shu  cone  for  cue 
records  that  he  creates  during  the  run.  As  the  averages  for 
each  functional  category  are  printed,  SIMSIZ  gives  tne  user 
the  option  of  creating  a record  after  each  group  of  averages 
is  calculated.  A formatted  data  record  is  generated  placing 
appropriate  values  in  the  fields  listed  in  Taole  6.  The  new 

records  are  written  to  the  TEMP  file.  Tney  can  then  be 

* 

added  to  the  data  base  by  the  Add  function,  placed  on  tne 
user's  permfile  with  the  Put  function,  or  retained  on  the 
TEMP  file  to  be  further  modified  by  tne  Modify  function. 
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TABLE  B 


FORMATTED  DATA-RECORD  FIELD  VALUES 


Field 

Description 

FI 

Single  character  specified  by  the  user 

F2 

Function  Code  under  which  these 
average  values  were  generated 

F3 

Nul  1 

F4 

Null 

F5 

F for  FORTRAN  - the  sizing  standard 

F6 

Manufacturer's  Est.  for  Timing 

F7 

Manufacturer's  Est.  for  Instruction  Size 

F8 

Manufacturer's  Est.  for  Data  Size 

F9 

Maximum  Iteration  Rate 

F10 

Current  Total  Timing 

Fll 

Current  Total  Instruction  Size 

F12 

Current  Total  Data  Size 

F13 

Current  Year 

Fl  4 

Null 

F15 

Null 

F16 

0 

F17 

0 

F18 

0 
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SECTION  VIII 


UTILITY  ROUTINES  FOR  OBTAINING  LISTINGS 

This  section  was  included  to  acquaint  the  user  with 
two  of  the  utility  routines,  available  to  CREATE  users, 
which  will  be  useful  in  data-base  management.  These  Utility 
routines  are  small  batch  joos  which  do  not  run  under 
SIMSIZ.  They  may  only  be  run  from  the  'star'  (*)  level  (see 
Section  I).  The  routines  will  generate  a complete  listing 
(dump)  of  all  records  on  either  a data-base  file,  or  a user 
permfile  of  formatted  records.  The  output  will  be  available 
for  pickup  in  the  CREATE  Production  Control  (I/O)  shop  in 
the  basement  of  building  262,  near  Post  D. 

In  order  to  run  jobs  in  the  Batch  mode  on  CREATE  the 
user  must  first  log-on  to  the  CREATE  System  as  in  Section 
I.  The  log-on  is  essentially  the  same,  except  that  the  user 
must  answer  "CARDIN"  instead  of  "FORT  N"  to  the  "SYSTEM?" 
question.  The  user  may  then  run  batch  jobs  directly  from 
the  terminal. 

After  the  user  responds  with  "CARDIN"  the  system 
will  ask  if  he  wants  to  attach  an  old  or  a new  file  for  the 
run.  The  response  here  depends  upon  which  of  the  following 
two  programs  the  user  intends  to  exercise. 


rr= 


Listing  an  Entire  Data  Base 
Enter: 

OLD  OR  NEW-OLD  BASEDMP 
ready 

* RUN 

If  the  user  wishes  to  dump  the  contents  of  a 
different  data-base  file  then  certain  alterations  must  be 
made  to  the  BASEDMP  program.  Line  number  1690  must  be 
changed.  Enter: 

LIST  1690 

The  system  will  respond  with 

1690$: PRMFL : 1 0 , R , R , S IMCOM/S IMDATA 
1700$ :ENDJOB 

ready 

* 

The  user  must  now  re-enter  line  1690  changing  only  the 
CAT/FILE  portion  as  appropriate.  For  example: 

1690$ : PRMFL: 10 , R, R, Userid/Filename 
The  system  will  respond  with  an  The  user  may  then 

enter  'RUN'  and  the  system  will  respond  with  a SNUMB 
number.  Record  the  SNUMB  number  to  identify  your  printout. 

Listing  Formatted  Permfiles 
Enter: 

OLD  OR  NEW-OLD  PERMDMP 
ready 

* 

List  line  1470,  as  above,  and  change  only  the  CAT/FILE 
portion  as  appropriate.  Run  the  job  and  record  the  SNUMB. 
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APPENDIX  B 

DEFINITIONS  OF  STANDARDIZED 
MODULE  CATEGORIES 
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Armament/Stores  (AS) — modules  that  simulate  the  aero- 

dynamic effects  of  carrying/releasing  external  muni- 
tions, fuel  tanks,  RPVs , or  ECM  pods  on  the  air- 


craft. 


Aural  Cues  ( AC)--.aodules  that  provide  sound  simulations  of 
all  phases  of  ground  and  flight  operations.  Noise 
from  engines,  APUs,  hydraulic  pumps,  air  turbine 
motors,  and  weapons  release  are  some  examples. 


Auxiliary/External  Power  (AP) — modules  tnat  simulate  elec- 
trical and  bleed  air  requirements  prior  to  engine(s) 
start  and  after  engine(s)  snutdown. 

Avionics  ( AV )--moduies  that  simulate  aircraft  performance 
instrumentation.  Performance  indicators  include 
airspeed,  altitude,  vertical  velocity,  attitude, 
neading,  and  course.  Central  air  data  computers, 
if  included,  are  considered  avionics. 

Cockpit  Displays  (CD) — modules  that  simulate  visual  cockpit 
warning  devices  such  as  master  caution  systems,  fire 
warning  systems,  and  fire  suppression  systems. 
Special  visual  devices  sucn  as  Heads-Up  Display 
(HUD)  are  categorized  as  cockpit  displays. 

Communication  (CM) — modules  that  simulate  the  aircraft's 
communication  systems  (FM,  HF,  VHF,  and  UHF  radios). 
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Transponders  (IFFs)  are  categorized  as  communica- 
tion. 

Computational  Hon-real  Time  (CN) — modules  that  fulfill 
support  and  diagnostic  functions  such  as  compilers, 
loaders,  maintenance  and  test  routines. 

Computational  Real  Time  { CR)--modules  that  perform  real 
time  computer  operations  such  as  executive  routines, 
handlers,  and  common  subroutine  libraries. 

Data  Files  ILF) — modules  tnat  contain  only  data  entries. 

These  modules  contain  no  executiole  instructions 
and  therefore  no  processor  time  requirements.  Data 
file  modules  are  functionally  coded  into  standard- 
ized module  categories.  The  codes  are  contained  in 
tne  data-record  field  for  subsystem  code. 

Electrical  Power  (EP) — modules  that  simulate  electrical 
system  pert orma nee , electrical  power  indicators, 
and  aircraft  lighting. 

Electronic  Warfare  (EW) — modules  that  simulate  detection 
masking,  signal  jamming,  threat  assessment,  ana 
other  electronic  warfare  functions. 

Engines  ( EG) --modules  that  simulate  aircraft  engine  per- 
formance and  instrumentation.  This  category 
includes  nigh  and  low  speed  turbine  RPMs,  EGT,  oil 
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quantity  and  temperature,  engine  stall  characteris- 
tics, and  anti-ice  systems. 

Environmental  (EV) — modules  that  simulate  the  pneumatic 
system.  This  category  includes  the  bleeu  air  system 
performance  (during  flignt) , oxygen  system  useage, 
and  the  cabin  temperature/pressurization  indicators. 

Flight  Controls  (FC) — modules  that  simulate  flight- 

control  aerodynamics.  This  category  generally 
includes  flight-control  surfaces,  autopilot, 
stability  augmentation,  and  trim  systems. 

Fuel  System  (FS) — modules  that  simulate  fuel  related 

activities.  Refueling  (aerial  if  included) , defuel- 
ing , aircraft  fuel  useage,  and  fuel  indicators  are 
included  in  this  category. 

Growth  Provisions  (GP) — modules  added  to  the  original  desiyn 
specifications  that  result  from  user  initiated  ECPs. 
Examples  include  the  DRLMs  for  the  F-16  and  the  INS 
for  the  C-5  CPT. 

Hydraulics  (HD) — modules  that  simulate  hydraulic  system 
performance  and  indications.  Tnese  modules  perform 
the  functions  of  values,  pumps,  and  pressure  regu- 
lators. Hydraulic  system  indicators  and  warning 
liyhts  are  also  included. 


Instructional  (IN) — modules  that  provide  the  simulator 
instructor  with  the  ability  to  control  the  simula- 
tion environment.  Instructor  training  aids  such  as 
video/audio  recorders,  CRTs  for  visual  displays  of 
siiuulator  position,  and  weather/malf unction  control 
devices  are  categorized  as  instructional. 

Landing  Gear  (LG) — modules  that  simulate  the  operation  of 
the  aircraft's  landing  gear,  brakes,  nose-wheel 
steering,  anti-skid  system,  and  associated  indica- 
tors. 


Motion  (MO) --modules  that  compute  required  inputs  to  the 
mechanical  motion  system  of  the  simulator.  These 
include  simulated  motion  during  taxi,  takeoff, 

flight  (in  smooth  and  in  rough  air),  and  landing. 
Mechanoreceptors  and  ejection,  if  applicable,  are 
categorized  as  motion. 

Navigation  (NV) — modules  tnat  simulate  inputs  necessary 
to  perform  aircraft  navigation.  These  include  com- 
putations for  magnetic  variation,  navigation  aid 
station  location,  aiicraft  position,  position 

freeze,  and  celestial  positions.  Navigation  aids 
such  as  TACAN,  VOR,  ILS,  OMEGA,  area  nav,  and  INS 
are  categorized  as  navigation. 
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Radar  (RD) — modules  that  simulate  the  operation  and 
visual  presentations  of  the  aircraft  radar  systems. 

Simulation  Environment  (SE) — modules  that  simulate  flight 
characteristics  of  the  particular  aircraft.  These 
modules  provide  aerodynamic  equations,  equations  of 
motion,  equations  for  ground  reactions,  and  weight 
and  balance  computations. 

Special  Systems  (SS) — modules  that  simulate  unique  char- 
acteristics of  an  aircraft  such  as  MADAR  (on  the 
C-5),  SKE  (on  the  0130),  or  special  aircraft  model 
features  such  as  the  HO130P  and  the  0130  (AWADS). 

Tactics  (TC) — modules  that  simulate  tactical  fignter 

engagements.  These  include  such  features  as  target- 
ing, firing,  tracking,  and  kill  computations. 

Visual  Real  ( VR)--modules  that  simulate  the  visual  environ- 
ment during  all  phases  of  aircraft  operation.  These 
modules  include  such  functions  as  position  computa- 
tions, image  generation,  wind  and  weather  compensa- 
tion, and  CRT  interface. 

Visual  Support  (VS) — modules  that  fulfill  visual  support 
and  diagnostics  functions  such  as  visual  data-base 
management,  scene  generation,  and  maintenance  and 
test. 
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Bit — "is  the  smallest  element  in  a binary  character. 
Each  bit  has  two  states,  either  off  or  on,  thusthe  repre- 
sentation of  0 or  1 [7:212]." 

Byte — "is  the  smallest  individual  aadressaule  group 
of  bits — conventionally  eight  bits  [12:12]." 

Code — the  means  by  which  design  requirements  are 
translated  into  a form  the  computer  can  process. 

CREATE — is  an  acronym  (Computational  Resources  for 
Engineering  And  Simulation  Training  and  Education)  for  a 
large  scale  computer  system  that  provides  both  time-sharing 
and  batch  processing  capability  (10:2.2). 

Data  base — 

. . . a collection  of  interrelated  data  stored 
together  ...  to  serve  one  or  more  applications  in  an 
optimal  fashion;  a common  and  controlled  approach  is 
used  in  adding  new  data  and  in  modifying  and  retriev- 
ing existing  data  within  the  data  base  [12:19J. 

Debugging — the  process  of  finding  and  correcting 
errors  in  computer  software. 

Modularity — a software  design  concept  that  advocates 
the  use  of  a building  block  or  modular  approach  in  the 
development  of  complex  software  systems.  Each  moaule 
performs  a given  function  more  or  less  independently  from 
the  others.  The  software  system  can  be  modified  by  adding 
or  deleting  particular  modules. 
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Octal — an  octal  value  is  a number  in  the  base-eight 
numbering  system. 

Permf ile — a permanent  mass  storage  disk  file  which 
exists  until  the  user  intentionally  releases  it. 

SIMSIZ — is  the  name  of  tne  interactive  computer 
program  developed  during  this  research  for  sizing  simulator 
software  packages. 

Simulator — an  Aircrew  Training  Device  that  ranges  in 
complexity  from  a simple  procedures  trainer  to  a nigh 
fidelity  system  capable  of  simulating  all  aspects  of  an 
aircraft's  mission.  Cockpit  Procedures  Trainers  (CPTs), 
Partial  Task  Trainers  (PTTs),  Operational  Flight  Trainers 
(OFTs),  ana  weapon  System  Trainers  (rtSTs)  are  commonly 
referred  to  as  simulators. 

Sof  tware — a set  of  step-oy-step  instructions 
required  by  a computer  to  perform  its  intended  function, 
commonly  referred  to  as  computer  programs. 

Software  engineer--ASD  software  engineers  assigned 
to  the  Directorate  of  Engineering  and  matrixed  into  tne 
SIMSPO  for  computational  systems  engineering. 

Software  module--a  subunit  of  a software  system 
wnich  has  been  identified  as  a means  of  functionally  seg- 
menting code  into  manageable  sizes. 

TEMP — a tempfile  used  by  SIMSIZ  for  temporary 
storage  of  data. 
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Tempf ile — a temporary  mass  storage  disk  file  wnich 
exists  only  as  long  as  the  using  program  is  in  execution. 

Top-down design — a software  design  concept 

incorporating  modularity  and  a smooth,  continuous  execution 
of  code  literally  from  top-to-bottom  of  the  program;  it 
reduced  branching  forward  and  back  in  the  flow  in  a 
haphazard  manner. 
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FUNCTION 


SIMULATOR 


WEIGHT 


Aural  Cues 

F-16 

60% 

A-10 

40% 

Auxiliary  Power 

F-16 

50% 

A-10 

50% 

Ariaament/Stores 

F-16 

80% 

A-10 

20% 

Avionics 

F-16 

20% 

A-10 

80% 

Cockpit  Displays 

F-16 

60% 

A-10 

40% 

Communications 

F-16 

50% 

A-10 

50% 

Comp.  Non- Real  Time 

A-10 

70% 

C-130 

30% 

Comp.  Real-Time 

F-16 

60% 

A-10 

40% 

Data  Files 

F-16 

80% 

A-10 

20% 

Engines 

F-16 

(X  1.5) 

Electrical  Power 

F-16 

70% 

A-10 

30% 

Environmental 

F-16 

50% 

A-10 

50% 

Electronic  Warfare 

F-16 

90% 

A-10 

10% 

Flight  Controls 


F-16 


20% 


FUNCTION 
Fuel  Systems 

Hydraulics 

Instructional 

Landing  Gear 

Motion 

Navigation 

Radar 

Simulator  Environment 
Special  Systems 
Tactics 

Visual-Real  Time 


SIMULATOR 

WEIGHT 

F-16 

70% 

A— 10 

30% 

F-16 

50% 

A- 10 

50% 

F-lb 

60% 

A- 10 

40% 

F-16 

40% 

A- 10 

60% 

F-16 

60% 

A— 10 

40% 

F-16 

80% 

A— 10 

20% 

F-16 

100% 

F-16 

80% 

A— 10 

20% 

A— 10 

60% 

C-141 

40% 

F-16 

70% 

A- 10 

30% 

The  F-15 

presently 

does  not 

incorporate 

a visual 

system. 

I868CHAIN  SIHSIZ  MAIN  DRIVER. 

1I1IC 

IKK 

1131  CHARACTER  FNANE«4»  DATES*8(3).  CARD*45«>  ATCH*28» 
lim  T0DAT«8.  STSCOO*2(48)»  $TSNAH*12(48) . 

115ft  ANS*3.  CPUC»2(15).  CPUN*8(15)>  LANCC»1 (If I > 

Iftft  LANCN*8(18>.  SIHC0D*1(28)»  SINNAH*8(28> 

1I78C 

1188  INTEGER  SECNO.  LSIZE.  DIR(3>*  INF0(3) > DATAS(3)> 

189ft  CONTi  DSSECI48).  DESEC (48).  DNSECI48). 

U88t  NDEK48).  FC.  RNUN.  SIHTXT (2f) 

1118C 

1128  REAL  CPUSI15).  CPUTI15).  LANCS(IR).  SIHFAC (28) 

1138C 

1148  LOGICAL  DIREUP.  INFOUP.  DATAUP.  LA.  LB.  LC.  LD.  LE» 

11584  UINFO 

I168C 

1178  CONHON  /RISC/  DIREUP.  INFOUP.  DATAUP.  UINFO.  NSEL 
1188C 

1198  COHHON  /IDSEC/  FRAME . DATES.  LSIZE.  DIR.  INFO.  DATAS.  RNUN 
I288C 

1218  CONHON  /INSEC/  CPUC.  CPUN.  CPUS.  CPUT.  LANCC.  LANCN.  LANGS 
1228C 

1238  CONHON  /INFOS/  SIHCOB.  SIHNAN.  S1NFAC.  SINTXT 
1248C 

1258  COHHON  /DRSEC/  STSCOD.  STSNAN.  DSSEC.  DESEC.  DNSEC.  NDEL 
I268C 

1278  CONHON  /TERHTTPE/  LINE 

1288C 

l298H<tHHM<H<IHHHIHIHHHHHHHtlHHHMHHHIHHHHI 
1 388c 

1318*  - • ATTACH  RAIN  FILE. 

1328  PRINT.  UENTER  CAT/FILE  STRING  OF  DATA  BASE  FILE.  FOLLOUED  BT  > 

1338  READ.  ATCH 

1348  CALL  ATTACH  (18.  ATCH.  3.  1..) 

1358C 

1348*  - - SET  RANDOM  RECORD  SIZE  AT  76  UORDS/RECORD. 

1378  CALL  RANSIZ  (18.  76.  1) 

1388C 

1398*  - - DETERNINE  OUTPUT  LINE  LENGTH. 

1488  8 PRINT.  "NHAT  IS  THE  NAX  NUHBER  OF  CHARACTERS/LINE  ". 

14181  "TOUR  TERRI  NAL  CAN  PRINT?" 

1428  READ.  LINE 

1438  IF(LINE.LT.l)  GO  TO  8 

1448  IF (LINC.LT. 128)  LINE  * 88 

14S8C 

1468*  - • SET  SIZE  OF  OUTPUT  LINE. 


1471 

CALL  FPARAN  (It  132) 

1480C 

1491*  • 

• SET  BREAK  ADDRESS. 

15N 

CALL  BRKADR  («2##> 

1 5 liC 

1521 

PRINT,  "HAS  THIS  FILE  BEEN  INITIALIZED  (T  OR  N>?" 

1531 

READ.  ANS 

1541 

IF(ANS.Efl.'N')  CO  TO  1# 

155IC 

154#*  - 

- LOAD  COMMONS  IDSEC.  DRSEC.  AND  RISC. 

1571 

CALL  RHHEAD  (1) 

158IC 

159#*  • 

- SET  NSEL  TO  A NECATIVE  VALUE. 

14##  11 

NSEL  * -1# 

I41IC 

1421 

PRINT.  "WELCOME  TO  PROGRAM  SIhSIZ.  WOULD  TOU  LIKE  INSTRUCTIONS  ". 

14301 

"(T  OR  N)?" 

1441 

READ.  ANS 

1451 

IFIANS.EO. 

•TM  CO  TO  15 

1441 

U1NFO  : .F.t  CO  TO  25 

1471  15 

PRINT.  "THIS  PROGRAM  AND  ITS  ASSOCIATED  DATA  BASE " 

148IC 

14ffC 

171# 

PRINT.  "SIHSIZ  CAN  BE  USED  TO:" 

1711 

PRINT.  " 

A - ADD  RECORDS  TO  THE  DATA  BASE." 

1721 

PRINT.  " 

D - ADD,  CHANCE,  DELETE,  OR  LIST  RECORDS  IN  " 

173# 

PRINT,  " 

THE  DATA  BASE  OIRECTORT." 

1741 

PRINT.  " 

B - BUILD  DATA  BASE  FILE  WITH  ID  AND  DIRECTOR!  SECTIONS 

175# 

PRINT,  " 

H • NODIFT  (OR  DELETE  NARK)  ONE  OR  MORE  RECORDS" 

174# 

PRINT,  " 

ON  THE  'TEMP*  (TEMPORARY)  FILE." 

1771 

PRINT,  " 

U - UPDATE  THE  DATA  BASE  WITH  HODIFIED/DELETED" 

17M 

PRINT,  " 

RECORDS  FROM  THE  'TEMP*  FILE." 

179# 

PRINT,  " 

P - PUT  MODIFIED  'TEMP1  RECORDS  ON  A USER-SUPPLIED" 

1811 

PRINT,  " 

SEQUENTIAL  PERM  FILE." 

181# 

PRINT,  " 

C - GET  RECORDS  FROM  USER-SUPPLIED  SEQUENTIAL" 

182# 

PRINT,  " 

PERM  FILE  (BUILT  PREVIOUSLT  BT  'PUT'  FUNCTION)" 

183# 

PRINT,  * 

AND  PLACE  RECORDS  ON  'TEMP*  FILE." 

184# 

PRINT,  " 

H • AOD,  CHANCE,  DELETE  OR  LIST  DATA  IN  THE  DATA  " 

185# 

PRINT,  " 

BASE  'HEADER'  (ID  AND  INFO)  SECTIONS." 

184# 

PRINT,  " 

L - LIST  RECORDS  ON  'TEMP'  FILE." 

187# 

PRINT,  " 

R - RUN  A SIZING  ANALYSIS  ON  SELECTED  DATA  RECORDS." 

188# 

PRINT,  " 

S - SELECT  NODE  - USED  TO  SELECT  ONE  OR  MORE  “ 

1891 

PRINT,  " 

RECORDS  FROM  THE  DATA  BASE  (FOR  MODIFICATION,  " 

!9#f 

PRINT,  " 

DELETION,  LISTING,  OR  USE  IN  SIZINC  ANAL ISIS)" 

191# 

PRINT,  " 

AND  PLACE  THEN  ON  THE  'TEMP*  FILE." 

1928 

PRINT,  " 

E - END  - CO  TO  NORMAL  TERMINATION." 

193# 

PRINT,  " 

I - INSTRUCTIONS  - TO  HAVE  THE  INSTRUCTIONS  REPRINTED." 

194# 

PRINT,  " 

X - END  - ABNORMAL  TERMINATION.  DO  NOT  WRITE  COMMONS" 

195# 

PRINT,  " 

BACK  TO  THE  DATA  BASE." 

194# 

PRINT,  " " 

197# 

PRINT,  "NON  ENTER  THE  LETTER  WHICH  IDENTIFIES  THE  OPTION  TOU" 

198# 

PRINT,  "WISH  TO  EXERCISE.  REMEMBER  TOU  MUST  FIRST  ESTABLISH* 

!99f 

PRINT i "THE  TENP  FILE  (USING  '$»  OR  >C>)  IF  YOU  NISH  TO  DO" 

Zfff 

PRINT i "ANYTHING  OTHER  THAN  ADO  RECORDS  OR  LIST  HEADER  "■ 

211ft 

"INFORMATION." 

2121 

PRINT.  " " 

2131 

UINFO  * .T. 

2141  25 

PRINT.  "FUNCTION?" 

2151 

READ.  ANS 

2f4f 

IFIANS.EQ.’AM  CO  TO  51 

2171 

IF (ANS.EB. ’U'  .OR.  ANS.EQ.’H'l  GO  TO  9f 

2181 

IFfANS.Efl.’D’  .OR.  ANS.EQ. »L’  .OR.  ANS.EQ.'H’)  CO  TO  4f 

2090 

IF (ANS.EQ. *E* ) GO  TO  9H 

2111 

IF(ANS.EQ.'I')  GO  TO  15 

2111 

IF  (ANS.EQ.  'B*  .OR.  ANS.EQ. ’RM  GO  TO  Iff 

2120 

IF  (ANS.EQ.  'P»  .OR.  ANS.EQ. ’G’)  CO  TO  Iff 

2131 

IF (ANS.EQ. 'Sf  > GO  TO  8f 

2140 

IF (ANS.EQ. ' X’ ) CO  TO  91f 

2151 

PRINT.  "TOU  MUST  ENTER  EITHER:" 

2141 

PRINT.  "A.  B.  D.  E>  G.  H.  I.  L.  N.  P.  R.  S.  U*  OR  I." 

2170 

CO  TO  25 

2180C 

2190*  - 

- CALL  ADD  ROUTINE. 

2200  51 

IF  (LA)  GO  TO  55 

2211 

LB  * .F.I  LC=.F.i  LD=.F. » LE  * .F. 

2221 

LA  * .T. 

2231  55 

CALL  LLINK("A  ") 

2241 

CALL  ADREC 

2251 

CO  TO  25 

2264C 

2271*  - 

- DO  LIST  FUNCTION. 

2284* 

SEE  IF  LINK  IS  ALREADY  IN  CORE. 

229#  41 

1F(LC>  CO  TO  43 

23M 

LA=.F. » LB=.F.i  LD*.F.S  LE  * .F. 

2310 

LC*.T. 

2328 

CALL  LLINK  ("C  ") 

2331  43 

IF (ANS.EQ. ’M’ ) CO  TO  7f 

2341 

IF (ANS.EQ. fL* ) GO  TO  44 

2351 

lFtANS.EQ.'D’)  GO  TO  44 

2340  44 

FC  = f 

2371 

CALL  LISTR  (FC) 

2381 

GO  TO  25 

2391  44 

CALL  DIRHOD 

24N 

GO  TO  25 

2411  71 

CALL  TMOD 

2421 

GO  TO  25 

2430C 

« 

2441  81 

IF  (LB)  CO  TO  85 

2451 

LA*. F.I  LC=.F.i  LD*.F.I  LE  * .F. 

2441 

LB*.T. 

2471 

CALL  LLINK("B  ") 

2481  85 

CALL  SELREC 

2490 

CO  TO  25 

2500C 

95 

' ’ -3 

2511  91 

1F(LD)  CO  TO  92 

2521 

LA  * .F.i  LB  * .Fit  LC  * .F. ? LE  * 

.F. 

2531 

LD  * .T. 

2541 

CALL  LLINK  CD  M) 

2551  92 

IF(ANS.EQ.'UM  CO  TO  94 

2541 

IF(ANS.EQ.’HM  CO  TO  94 

2571  94 

CALL  UPP*^. 

2581 

CO  TO  25 

2591  94 

CALL  HEADER 

244# 

CO  TO  25 

2414C 

2421  Iff 

(FOE)  CO  TO  114 

2434 

LA  * .F.?  LB  * «F.»  LC  * .F.I  LD  * 

.F. 

2444 

LE  * .T. 

2454 

CALL  LLINK  CE  ") 

2444  114 

IF(ANS.EQ.’R')  CO  TO  124 

2474 

lF(ANS.EQ.'B')  CO  TO  134 

2484 

NODE  * 1 

2494 

IF(ANS.EQ.'C’)  NODE  * 2 

2744 

CALL  PUTCET  (NODE) 

2714 

CO  TO  25 

2724  124 

CALL  RUNSIZ 

2734 

CO  TO  25 

2744  134 

CALL  SINBLD 

2754 

CO  TO  25 

2744C 

2774*  - - 

RESET  BREAK  ADDRESS  AND  CONTINUE. 

2784  244 

CONTINUE 

2794 

CALL  BRKADR  ($240) 

2844 

CO  TO  25 

2814C 

2824  944 

CALL  RUHEAD  (2) 

2834  914 

CALL  DETACH  (24.  ISTAT.  4) 

SUBROUTINE  AMEC 


100KAOREC  ROUTINE  TO  ADO  RECORDS  TO  THE  DATA  BASE. 

till  SUBROUTINE  ADREC 

IKK 

1131  CHARACTER  FHAHE*4.  DATES»8(3).  CARD»45§.  FREC*90(5). 

10404  T0DAT*8»  $TSCOD*2(40).  STSNAH«12(40>.  FC*1. 

14511  F0RHU12.  F0RH2*41.  CEE«l/'C'/»  ATCH#20. 

11404  NEUR*90(5).  N$S*2/»  '/»  NEUB*450>  ANSU»84. 

11704  ANS«3.  0SS*2/»  '/»  STR*8(15).  LSTR«30* 

10804  TBUFM50.  TREC»90(S) 

109K 

1100  INTEGER  SECNOt  LSIZEt  DIR(3).  INF0(3)i  DATAS43) » SFLDS> 

11104  CONTi  OSSEC (40) • DESEC (40) » DNSEC(40)r  RNUH. 

11Z04  NOEL (44),  FUlSli  RECIZ0),  RP.  FPt  FLD( IS) » SP. 

11304  TSEC 

1144C 

1150  LOGICAL  DIREUPt  INFOUPi  DATAUPi  FIELD«1<15).  DONE. 

11404  RTN.  ROATA.  UINFO.  NOOSPLAT.  SERIES.  TEST. 

11704  FORM.  TEHP 

1180C 

1190  EQUIVALENCE  (CARD.  FREC(ll).  (NEUB.  NEUR(l)).  (TBUF.  TREC(ll) 
1200C 

1210  COHHON  /RISC/  DIREUP.  INFOUP.  DATAUP.  UINFO.  NSEL 
122K 

1230  CONNON  /IDSEC/  FNAHE.  DATES.  LSIZE.  DIR.  INFO.  DATAS.  RNUH 
1240C 

12S0  COHHON  /MSEC/  STSCOD.  STSNAN.  DSSEC.  DESEC.  DNSEC.  NOEL 
1Z40C 

1270  cohhon  mmn  neub 


COHHON  / ARRATS/  RP.  REC.  FP.  FLO.  SP.  STR.  LSTR.  NFLDS 
DATA  FMH1/"(T  .A3»».')7.  OSS/'  '/.  FC/»  '/ 


IHHIHmHHtIKIHHIHIHtHMIHHHHHtmHHIHHHHHH 

IF (.NOT.  UINFO)  GO  TO  2 

PRINT.  "DO  YOU  IMNT  INSTRUCTIONS  FM  ADDING  RECMDS  (T  OR  Nl?" 
READ.  ANS 

IF(ANS.EB.'T’)  GO  TO  1 
UINFO  * .F.;  GO  TO  2 
UINFO  * .T. 

PRINT.  "THE  CONTENTS  OF  RECMD  FIELDS  1 THRU  15N 
PRINT.  "ARE  AS  FOLLOUSs" 

PRINT.  "FIELD  FIELD- 

PRINT.  "MJHBER  FORHAT  OISCRIPTION" 

PRINT.  " 1 A1  SIHULATOfi  CODE- 

PRINT.  - 2 A2  FUNCTION  CODE" 
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r 


1 


■ t.-1 

*, 1 

3S 

z* 


1478 

PRINT. 

II 

3 

A2 

SUBSTSTEH  CODE" 

1488 

PRINT, 

W 

4 

A8 

MFC  MODULE  CODE" 

1498 

PRINT, 

N 

5 

At 

PROGRAM  LANGUAGE" 

1588 

PRINT, 

N 

6 

F6.2 

TIMING  - MFC  EST" 

1518 

PRINT, 

N 

7 

15 

INSTR  - MFC  EST" 

1528 

PRINT. 

N 

8 

15 

DATA  - MFC  EST" 

1538 

PRINT. 

M 

9 

F5.I 

CPS  - CURRENT" 

1548 

PRINT. 

M 

18 

F6.2 

TIHINC  - CURRENT" 

1558 

PRINT. 

N 

11 

15 

INSTR  - CURRENT" 

1568 

PRINT, 

N 

12 

15 

DATA  - CURRENT" 

1578 

PRINT. 

N 

13 

12 

TEAR  OF  UPDATE" 

1588 

PRINT. 

W 

14 

A2 

COMPUTER  STSTEH" 

1598 

PRINT. 

M 

15 

A38 

COMMENTS  TEXT" 

1688 

PRINT. 

N 

II 

1618 

PRINT, 

"WHEN  PROMPTED  BT  'NEXT  • ',  ENTER  THE  DATA  1 

1628 

PRINT, 

"1 

1 THRU  15  OF  THE  NEXT  RECORD.  SEPARATE  THE 

1638 

PRINT, 

"COMMAS. 

IF  TOU  WISH  TO  SXIP  A FIELD,  THEN 

1648 
1658 
1668 
1678 
1688 
1691 
17H 
1711 
1721 
173# 
1741 
1751 
176# 
1771 
1781 
1791 
1811 
1818 
1828 
1838 
1848 
1858 
1868 
1878 
1888 
1898 
1988 
1918 
1928 
1938 
1948 
19S8 
1968C 
1978  2 
19888 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


"WITH  ' ALL  FIELDS  WITH  EHBEDED  BLANKS  OR  SPECIAL* 
“CHARACTERS  (5.1)  HOST  BE" 

"ENCLOSED  IN  QUOTES.  IF  TOU  CAN'T  ENTER" 

"ALL  THE  DATA  ON  ONE  LINE*  JUST  HIT  'RETURN*  AND  " 

"TOU  HILL  BE  PROMPTED  UITH  ANOTHER  '*'  SIGN* 

"UNTIL  ALL  THE  FIELDS  HAVE  BEEN  ENTERED  OR  NULLED  OUT." 

N M 

"TOU  NAT t HOWEVER » PREFER  TO  BUILD  THESE  DATA  STRINGS" 

"AHEAD  OF  TINE  AND  PUT  THEN  ON  A PERN-FILE.  TOU  NAT" 

"THEN  DIRECT  THIS  ADD  ROUTINE  TO  READ  THE  STRINGS" 

"FROM  THE  PERN-FILE.  IF  TOU  CHOOSE  THIS  OPTION.  THE  " 

"DATA  STRINGS  MUST  STILL  CONFORM  TO  THE  ABOVE  RULES" 

"OF  PUNCTUATION." 

N N 

"IN  ADDITION.  IF  TOU  KANT  TO  AOD  DATA  WHICH  ARE  " 

"ACTUALLT  MODIFIED  RECORDS  TAKEN  FROM  THE  DATA  BASE  TOU* 

"NAT  DO  SO.  THESE  DATA  MUST  HAVE  BEEN  PLACED  ON  A " 
"PERN-FILE  BT  THE  'PUT'  ROUTINE.  SINCE  THESE  DATA" 

"ARE  ALREADT  IN  THE  PROPER  RECORD  FORMAT.  THET  ARE  REFERRED" 
"TO  AS  'FORMATED'  DATA.  ALL  OTHER  INFORMATION  (DATA" 
"STRINGS!  IS  'UNFORHATED'." 

M N 

"AFTER  5 RECORDS  HAVE  BEEN  ENTERED  (OR  READ)  THET  HILL  ALL" 
"BE  DISPLATED  AT  GNCE.  IF  TOU  NISH  TO  CORRECT  A" 

"RECORD  ENTER  THE  RECORD  NUMBER  (I-S)  FOLLOWED  BT  THE" 

"FIELD  NUMBER IS)  (1-15)  AND  THE  CORRECT  FIELD  VALUES.  " 

"WHEN  TOU  HAVE  FINISHED  " 

"ALL  5 RECORDS  HILL  BE  DISPLATED  AGAIN.  TOU  HILL" 

"THEN  BE  PROMPTED  TO  ENTER  THE  ’NEXT’  RECORD." 

n n 

" IF  TOU  ARE  FINISHED  ENTERING  DATA.  ENTER  A Z." 


. -IS  THE  DATA  FOR  THE  RECORDS  TO  BE  ADDED  FORMATED  *F».  ", 
OR  UNFORHATED  *U'?" 
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i 


k. 


199«  PRINT » "ENTER  »I»  IF  YOU  RANT  INSTRUCTIONS." 

2NI  READ*  AMS 

2f II  FORM  * .F. 

2121  IF(ANS.EQ.'I’)  CO  TO  1 

2131  IFIANS.EO.’FM  FORM  » .T. 

2141  IF (FORM)  CO  TO  2114 

2f5f  2112  PRINT*  "DO  TOO  RANT  THE  DATA  TO  BE  ENTERED  FROM  A FILE  (7  OR  N>?" 

2141  READ*  AMS 

2171  IFIANS.RE.MM  CO  TO  3 

2181  2814  PRINT.  "ENTER  CAT/FILE  STRING  OF  DATA  FILE  FOLLORE8  BY 
2191  PRINT.  "ENTER  'TEMP,*  TO  INDICATE  SINSIZ  TEMP  FILE." 

21M  READ.  ATCH 

2111  TEMP  * .F. 

2121  IFIATCH.NE.'TENP.’)  CO  TO  2ff4 

213#  TEMP  * .T.i  FORM  * .T. 

2141  IF (NSEL.CT .•)  CO  TO  2H8 

2151  PRINT.  "NO  DATA  ON  TEMP  FILE." 

2141  RETURN 

2171  2M4  CALL  DETACH  UZ.  ISTAT.I 
2181  CALL  ATTACH  (12.  ATCH.  1.  «..) 

2191  2M8  PRINT,  "IS  THIS  A TEST  *T»,  OR  REAL  »R»  ADD?" 

22N  READ.  ANS 

221#  TEST  * .F. 

2221  IF(ANS.EO.’T')  TEST  * .T. 

2231  PRINT,  "DO  YOU  RANT  RECORDS  DISPLAYED  (Y  OR  N)?" 

2241  RE AO,  ANS 

225*  NODSPLAY  * .F. 

2260  IF  IANS. ED. 'N')  NODSPLAY  = .7. 

2271  RDATA  * .T. 

2281  IF (FORM)  CO  TO  35 

2291  IF (.HOT.  RDATA)  CO  TO  3 
2344  READ  (12,  41,  ENDM)  ANSH 

231«  CO  TO  6 

2321  4 PRINT,  "NO  DATA  ON  FILE  ",  ATCH 
2331  CO  TO  2M2 

2341  3 PRINT,  "YOU  MUST  ENTER  A SERIES  OF  NUMBERS  UHICH" 

235*  PRINT,  "INDICATES  THE  ORDER  YOU  HILL  USE  IN  ENTERING" 

2341  PRINT,  "THE  RECORD  FI&DS  1 THRU  15.  FOR  EXAMPLE,  IF" 

2371  PRINT,  "YOU  RILL  BE  ENTERING  DATA  FIELDS  IN  THE  ORDER" 

238f  PRINT,  ” 1,2, 3*7, 8, 9, 4, 5, 4*11, 12, If, 13, 14, 15" 

2391  PRINT,  "TIEN  THAT  IS  THE  NUMBER  STRINC  YOU  MUST  ENTER." 

24N  PRINT,  "THE  DATA  HIU.  BE  REORDERED  INTERNALLY  INTO  THE" 

2411  PRINT,  "PROPER  RECORB  FORMAT." 

2421  5 READ  4f,  ANSH 

2431*  • • LOAD  VALUES  INTO  FLO  ARRAY  ONLY  (NODE  ’ 3). 

2441  4 CALL  ST2AR  (ANSH,  3,  15,  (7,  47) 

2451  CO  TO  If 

2441  7 PRINT,  "PLEASE  RE-ENTER  FIELD  NUMBERS." 

2471  CO  TO  5 

2481  If  DO  12  I * 1,  15 
2491  FL(I)  * FLD(I) 

2500  FIELD! I I * .F. 


2511  12  CONTINUE 

2521  DO  21  1 : It  15 

253f  IF(FKI).EQ.I)  CO  TO  2« 

254#  1F(FL(I).CE.1  .AND.  FL(I).LE.15)  CO  TO  19 

255#  PRINT  17t  It  Fill) 

254#  17  FORMAT  (lit  “THE  “t  12t  "TH  VALUE  IN  THE  STR1NC  IS  I2t 

25784  " AND  IS  OUTSIDE  THE  RANGE  OF  1 TO  15."t/t 

258#t  "PLEASE  RE-ENTER  THE  COMPLETE  STRING. "I 

259#  CO  TO  5 

24##  19  FIELDIFL(D)  * .T. 

241#  2#  CONTINUE 

242#*  - - CHECK  TO  SEE  THAT  ALL  FIELDS  ARE  SPECIFIED. 

243#  NFLDS  * 15 

244#  DO  3#  I » 1»  15 

245#  lF(FIELDlI))  CO  TO  3# 

244#  PRINT  25t  I 

247#  RTN  * .T. 

240#  25  FORMAT  (lit  "TOU  DID  NOT  INDICATE  HHERE  FIELD  "t  12. 

249#l  " WOULD  BE  ENTERED.") 

27##*  - - ADD  THIS  FIELD  NUMBER  TO  THE  FLD  ARRATt  BUT  LEAVE  THE  STR 

271#*  VALUE  BLANK  SO  THE  FIELD  HILL  BE  NULLED  OUT. 

272#  FP  * FP  ♦ 1 

273#  FLD(FP)  * I 

274#  FL(FP)  * I 

275#  NFLDS  * NFLDS  - 1 

274#  3#  CONTINUE 

277#  IF(RTN)  PRINT.  "DEFAULT  VALUES  HILL  BE  USED." 

278#  RTN  * .F. 

279#  SFLDS  * NFLDS 

28##*  - - RESET  VALUES. 

281#  35  DONE  * .F.l  SECNO  * #1  CONT  * #1  OSS  * ' M NSS-*  * 

282#  NSEC  * #1  IPT  » #1  ITOT  * # 

283#  IF (.NOT.  TEMP)  CO  TO  82 

284#*  - - READ  FIRST  TEMP  SECTOR. 

285#  TSEC  » 1 

284#  READ  (2#'TSECt  END*9U.  ERR=92#)  TBUF 

287#  4#  FORMAT  (A84I 

288#  5#  FORMAT  4A9#) 

289#*  - - SET  RECORD  POINTER. 

29##  82  I * • 

291#*  - - READ  NEXT  RECORD. 

292#  85  ITOT  * ITOT  + 1 

293#  IFI.NOT.  TEST)  CO  TO  851 

294#  IR  * HODUTOTt  l#l 

295#  IF(IR.NE.f)  PRINT.  '1*IT" 

294#  IFUR.EO.#)  PRINT  85#t  ITOT 

297#  85#  FORMAT  (lit  "NEIT  13) 

298#  851  1F( .NOT . RDATA)  CO  TO  84 

299#  IF (.NOT.  FORM)  CO  TO  855 

3###  1*1*1 

3flf  IF (.NOT.  TEMP)  CO  TO  853 

3#2#*  - - CET  NEIT  RECORO  OFF  TEMP  FILE. 


f! 


3131  JF(ITOT.CT.NSEL)  CO  TO  854 
3848  852  IPT  * IPT  ♦ 1 
3151  IF(IPT.CT.S)  CO  TO  8521 
3868*  - - CHECK  FOR  DELETE  HARK. 

3171  DECODE  ITREC(IPT).  177)  FC 
3181  IF(FC.EO.'D')  CO  TO  8S2 
3891  HEHR(I)  * TRECUPT) 

31M  CO  TO  89 

3111  8S21  TSEC  = TSEC  ♦ 1 

3121  READ  (28’TSEC.  END*918»  ERR-921)  TBUF 

3131  IPT  * I!  CO  TO  852 

3141  853  READ  <12.  S«.  EN0=854I  NEUR(I) 

3151  CO  TO  89 

3161  854  1*1*1 

3171  IF(I.LT.f)  1 * I 

3181  CO  TO  868 

319*  855  READ  (12.  41.  END-868)  ANSU 

32M  IF (ANSW.EQ.  '# * ) GO  TO  868 

3211  CALL  ST2AR  (ANSU.  4.  12.  4857.  4868) 

3221  CO  TO  866 
3231  857  PRINT  858.  ANSU 

3241  858  FORMAT  (II.  "THE  PROCESSING  STOPPED  AT  THIS  LINE:**. /.A80. 
325M  "DOT  THE  ERROR  PROBABL!  OCCURED  IN  THE  PRECEEPINC  LINE.") 

3261  CO  TO  991 
3271  86  PRINT.  "NEIT" 

3288  READ  48.  ANSU 

3298  IFtANSU.EQ.’fM  CO  TO  868 

33 #8  CALL  ST2AR  (ANSU.  4.  85.  1865.  1865) 

3318  CO  TO  866 

3328  865  PRINT.  "PLEASE  RE-ENTER  THOSE  FIELDS." 

3338  CO  TO  86 

3348*  - - CHECK  FOR  END  OF  DATA. 

3358  866  lF(STR(l).NE.’f’>  CO  TO  87 
3368  868  DONE  * .T. 

3378*  - - IF  NO  NEU  RECORDS.  SKIP  TO  END. 

3388  IFd.EQ.8)  CO  TO  218 
3398  CO  TO  92 
3488  87  1 * 1 *1 

3418*  - - UPDATE  THE  RECORD. 

3428  CALL  RECMOD  (I) 

3438  89  CALL  CONCAT  (NEUR(I).  2.  CEE.  1.  1) 

3448  lFd.LT.5)  CO  TO  85 

3458*  - - DISPLAT  DATA  IN  STANDARD  FORMAT. 

3468  92  ITOTAL  * 8 

3478  IF(NODSPLAT)  CO  TO  158 

3488  CALL  DSPLAT  (NEUB.  I.  ITOTAL.  1.  1) 

3498  PRINT.  "ARE  THERE  ANT  ERRORS?" 

3588  READ.  ANS 

3518  IFIANS.EQ.'NM  CO  TO  158 

3528  185  PRINT.  "ENTER  THE  RECORD  NUHBER  (1  TO  5)5  FIELD  NUNBER(S)1  ". 
35381  "AND  NEU  FIB.D  VALUES." 

3548  187  READ  48.  ANSU 
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3551  NFLDS  * I 

3561  CALL  ST2AR  (ANSU.  1*  15.  *111.  It  111 

3571  CO  TO  115 

3581  111  PRIMT » “PLEASE  RE-ENTER  COMPLETE  CONTROL  STRINC." 

3591  CO  TO  tf7 

34BI  115  PRINT.  “THIS  IS  THE  HAT  I READ  YOUR  INPUTS:" 

3411  CALL  DARAT  (1) 

3421  PRINT.  "DO  YOU  WISH  TO  RE-ENTER  YOUR  CONTROL  STRINC  (Y  OR  N>?" 

3431  READ.  ANS 

3440  IFIANS.EO.'YM  CO  TO  1«5 

3451*  - - CHECK  FIELD  VALUES. 

344f  DO  125  J - 1.  FP 

3471  IF(FLDIJ) .CE.l  .AND.  FLD(J) .LE.15I  CO  TO  125 
3401  PRINT  121.  FLD(J) 

349#  121  FORMAT  (IX.  “FIELD  NUMBER".  13.  " IS  OUT  OF  LIMITS.") 

37N  CO  TO  til 

3711  125  CONTINUE 
3721  ITOTAL  * I 

3731  SERIES  * .F. 

3741  DO  141  J * 1.  RP 

3751  NUN  * REC(J) 

3741  IF(NUM.CT.I)  CO  TO  131 

3771  SERIES  * .T. 

3781  HUM  * -NUH 

3791  131  IFINUH.CE.l  .AND.  NW.LE.l)  CO  TO  135 
38N  PRINT  132.  NUH 

3811  132  FORMAT  (IX.  "RECORD  NUMBER  ".  12.  " IS  OUT  OF  BOUNDS.") 

3821  CO  TO  111 

3831  135  IF(SERIES)  CO  TO  134 

384*  K * NUH!  CO  TO  137 

385#  134  K * K + 1 

3841  IF(K.LE.NUH)  CO  TO  137 

3871  SERIES  * .F.I  CO  TO  141 

3881  137  CALL  RECHOD  (K) 

3891  IF(SERIES)  CO  TO  134 

39M  141  CONTINUE 

3911*  - - DISPLAY  THE  MODIFIED  RECORD(S). 

3921  NUMB  2 1 

3931  IF(RP.CT.l)  NUMB  - I 

3941  IF(NUHB.CT.l)  K * 1 

3951  CALL  DSPLAT  (NEUB.  NUMB.  ITOTAL.  K.  K) 

3941  PRINT.  “ANT  ADDITIONAL  CHANCES?" 

3971  REAB.  ANS 

3981  IF(ANS.EO.'Y')  CO  TO  1B5 

399B»  - - REPLACE  FIELD  VALUES. 

4HB  DO  145  J * I.  IS 

4111  FLD(J)  < FL(J) 

4121  145  CONTINUE 
413#  FP  * 15 

4#4#  NFLDS  * SflDS 
dSK 


4|7fC 

4484*  - - MITE  DATA  TO  FILE. 

4494  ISA  IF(TEST)  GO  TO  245 
41N  DO  244  IC  * 1.  I 

411#*  - - NUMBER  THE  RECORD. 

4121  RMJN  * RNUH  ♦ 1 

4131  ENCODE  (NEUR(IC).  151)  RNUN 

4141  151  FORMAT  (T87t  14) 

4151  CALL  CONCAT  (MSS.  1.  NEHRUC).  3.  2) 

4141  IF(NSS.EO.OSS)  CO  TO  175 

4171*  • - THIS  RECORB  BELONGS  IN  A DIFFERENT  SECTOR. 

4181*  URITE  THIS  SECTOR  BACK  TO  THE  FILE. 

4191  IF (SECNO.EQ.fi  GO  TO  152 

42M  CALL  NSEC  (CARD.  SECNO.  CONT) 

421IC 

4221*  - - LOOK  FOR  A NATCH  IN  THE  BIRECTORT. 

4231  152  BO  155  N * 1.  BIRO) 

4241  IF (NSS.NE.STSCOD(N) ) GO  TO  155 
4251  SECNO  * DESEC (N) 

4244*  • - IF  THERE  ARE  DELETE  NARKED  RECORDS  (AS  SHOHN  IN  THE  DIRECTORY). 
427#*  CHOOSE  STARTING  SECTOR  RATHER  THAN  ENDING. 

4281  IFINDEL(N).CT.f)  SECNO  * DSSECIN) 

4291  GO  TO  171 

43M  155  CONTINUE 

4311*  - - NO  NATCH  IN  BIRECTORT. 

4324*  CREATE  NEH  DIRECTORY  ENTRY. 

4331  IF  (BIRO)  .LT.4#}  GO  TO  16# 

4341  PRINT  157.  NSS 

4351  157  FORMAT  (II.  "NO  NONE  ROOM  IN  BIRECTORY  FOR  SYSTEM  COBE  ". 

434ft  A2.  ".  RECORD  IGNORED.") 

437f  GO  TO  2ff 

438f*  - - GET  NEXT  AVAILABLE  SECTOR  NUMBER. 

439f  144  SECNO  ' DATASI3) 

44#f  N * N ♦ l 

44lf  BATASO)  » DATASO)  ♦ 1 

442f  IF (DATASI2) .CT. (DATASO)  - DATAS(l) ) > GO  TO  145 

443f  142  PRINT  144.  DATASO) 

444f  144  FORMAT  (II.  "HAVE  RUN  OUT  OF  ROOM  FOR  DATA  AT  SECTOR  ". 

445ft  "NUMER  ".  14.  /.  "TERMINATING  ADB  ROUTINE.*) 

4444  GO  TO  lfff 

447f  145  DSSEC(N)  * SECNO 
4484  KSEC(N)  * SECNO 

4494  BNSEC(H)  > 1 

4544  NDEL(H)  > 4 

4514  DIR(3I  * DIR (3)  ♦ 1 

4524  BIREUP  * .T. 

4534  PRINT  147.  NSS 

4544  147  FORMAT  (II.  "PIFASE  ENTER  A SYSTEM  NAME  OF  12  OR  FEUER  ". 

4554t  "CHARACTERS  FOR  SYSTEM  CODE  ".  A2) 

4544  READ.  SYSNAN(N) 

4574  SYSCOD(N)  • NSS 

4584  174  CALL  RSEC  I CARD.  SECNO.  CONT.  4944) 
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SUBROUTINE  OUTER 


INKCRITER  BUILD  SELECTION  CRITERIA  TABLES. 


lflf  SUBROUTINE  OUTER 

1I2K  LATEST  UPDATE  2 APRIL  79 

II3B  CHARACTER  INPUTtMt  H0LDt4(5),  BLANKS *6/'  '/,  ANS*li 

114ft  TEHP*li  QUOTE* 1 / 1 H f / » CVAL*4(2SI.TENP2*4> 

IfSft  HFCC0D*8(lf ) • DRFC*2(18),  C0HP42(4I,TEHP344, 

lf4ft  DTEHP*2.  LHOLD*3f * CTEXT*3«<S)  t ZEROSi4/4Hfffftf/ 

l«7fC 

lfOf  INTEGER  FUNC (25) > IVAL(25)»  NPL(2S)i  FP.  LEVEL (151* 

119ft  OUTCON (15),  LOP (15)  i NFCPT,  HP.  OPARIN.  CPARIN. 

llfft  OCONP.  PTEXT.  NCHA.  ODRFC.  LEADN.  OHINF.  KLOP, 

111ft  SUITSllS),  OROTAT 

U2fC 

113f  LOGICAL  LIT.  NAJF.  INUK.  NINF.  ILIT.  ALIT.  CONPF.  BT1. 

114ft  BT2,  BT3.  NOSTR.  DIREUP.  INFOUP.  DATAUP.  U1NFO.  RTN 
IlSfC 

U4f  CONION  /SHITS/  LIT.  NAJF.  INHK.  NINF.  ILIT.  ALIT.  CONPF. 

117ft  BT1.  B12.  113.  NOSTR.  RTN.  0UN13.  DUN14.  DUN15 

U8fC 

U9f  EQUIVALENCE  (LHOLD.  HOLD(l).  IROTAT) • 

I2fft  (SHITS(l).  LIT) . (TENP. TENP2) . (DTEHP.TENP3) » 

121ft  (HQLD(A),  OROTAT) 

122IC 

123f  CONNON  /RISC/  DIREUP.  INFOUP.  DATAUP.  UINFO.  NSEL 
!24fC 

12Sf  CONNON  /TABLES/  FUNC.  CVAL.  IVAL.  NPL.  LEVEL.  OUTCON. 

124ft  LOP.  NFCCOD.  CTEIT 

127fC 

12Bf  BATA  DRFC/M  ».  *2  ',  >3  »,  *4  »,  *5  »,  *4  ', 

129ft  »7  ',  »8  »,  '9  »,  »lf»,  Ml'.  M2*» 

13fft  M3*.  »14»»  M3».  '14».  M7».  MB'/. 

131ft  CONP/'EQ'.  'HE'.  'GEM  »LE».  »CT».  »LT»/ 

!32fC 

133#444444444444444444444444444444444444444444444444444444444444444444 

134ft 

135#  IFt.NOT.  UINFO)  GO  TO  4 
134#  PRINT.  "INSTRUCTIONS  (T  OR  N)?" 

137f  READ.  ANS 

138#  IF(ANS.EQ.M')  GO  TO  2 

I39f  UINFO  t .F.l  CO  TO  4 

14N  2 PRINT.  "A  RECORD  HILL  BE  SELECTED  IF  THE  VALUES  FOR  SPECIFIED  FIEL*. 
141ft  "DS  HEET  TOUR  SELECT" 

I42f  PRINT.  "CRITERIA  IN  SUCH  A HAT  AS  TO  NAKE  THE  OVERALL  CRITERIA  STR". 
143ft  "INC  LOCICALL7  TRUE." 

I44f  PRINT.  "FIELD  NUHBERS  ARE  DESIGNATED  AS  Fit  F2.  F3...F18  FOR  FIELD". 
145ft  "S  It  2.  3.  MID  IB" 

I44f  PRINT,  "RESPECTIVELY.  COMPARISON  VALUES  ARE  EQ.  NEt  LT.  GTt  GE.  L", 


INTEGER 


FUNC (25) , IVAL (25) , NPL (25),  FP,  LEVEL(IS). 
OUTCON (15),  LOP (IS) . NFCPTt  HP.  OPARIN.  CPARIN. 
OCONP,  PTEITt  NCHA,  ODRFC.  LEADN.  OHINF.  KLOP. 
SUITSIlSh  OROTAT 


LOGICAL  LIT,  NAJF,  INUK.  NINF,  ILIT,  ALIT.  CONPF.  BT1, 
BT2.  BT3.  NOSTR,  DIREUP,  INFOUP,  DATAUP,  UINFO,  RTN 

CONNON  /SUITS/  LIT,  NAJF,  INUK.  NINF.  ILIT.  ALIT.  CONPF, 
BT1,  BT2,  »T3,  NOSTR,  RTN,  0UH13,  DUN14,  DUN15 


EQUIVALENCE 


(LHOLD,  HOLOd),  IROTAT), 

(SUITSd),  LIT) . (TENP.TEMP2) . (DTENP.TENP3) . 
(HQLD(A),  OROTAT) 


CONNON  /NISC/  DIREUP,  INFOUP,  DATAUP,  UINFO.  NSEL 

CONNON  /TABLES/  FUNC,  CVAL,  IVAL,  NPL,  LEVEL,  OUTCON. 
LOP,  NFCCOD,  CTEIT 

DATA  DRFC/M  »,  »2  ',  »3  '»  »4  ',  '5  ',  »4  ', 

»7  ',  »8  »,  '9  ',  »lf»,  Ml',  M2», 
M3',  M4»»  MS',  » 14» , M7',  MB'/, 
CONP/'EQ»»  'NE»»  »CE»,  'LEM  'CT»,  'LT'/ 


135# 

134f 

137f 

138f 

I39f 

14N  2 

141ft 

I42f 

143ft 

I44f 

145ft 

144f 


147K 

"E.  THE  MINOR** 

1489 

PRINT. 

"FUNCTION  LINK  'OR'  NAT  BE  USED  IF  IT  IS  NOT  NECESSARY  TO  R" 

14998 

"EPEAT  THE  FIELD" 

ISM 

PRINT. 

"NUMBER.  FOR  EXAMPLE.  FI  EQ  'A'  OR  >B'  OR  'D'f  HEANS:" 

1S19 

PRINT. 

"SELECT  ALL  RECORDS  WITH  FIELD  1 EQUAL  TO  *A*  OR  *B'  OR  'D*N 

1529 

PRINT. 

"(NOTE:  '1'  DENOTES  THE  END  OF  THE  CRITERIA  STRINC.l" 

1S39 

PRINT. 

"MAJOR  FUNCTION  LINKS  OF  'AND'  AND  'OR'  ARE  USED  SETUEEN  LO" 

13498 

"CICALLT  INDEPENDENT" 

1S39 

PRINT. 

"STRINGS  AND  ARE  DELIMITED  BT  COMMAS.  FOR  EXAMPLE,  FI  EO  '" 

15498 

"A',  AND,  F2  EQ  'HDT 

1571 

PRINT. 

"MEANS:  SELECT  ALL  RECORDS  UITH  FIELD  1 EQUAL  TO  *A'  AND  FI" 

13898 

"ELD  2 EQUAL  TO  'HD'." 

1399 

PRINT. 

"DO  TOU  WANT  A LISTING  OF  THE  FIELD  NUMBERS,  THEIR  FORMATS  " 

14M8 

"AND  CONTENTS  (T  OR  N>" 

1419 

READ.  ANS 

1429 

g 

u- 

.EQ.'NM  CO  TO  3 

1439 

PRINT. 

"THE  CONTENTS  OF  RECORD  FIELDS  1 THRU  18  ARE  AS  FOLLOUS:" 

1449 

PRINT. 

"FIELD  FIELD  FIELD" 

1439 

PRINT. 

"NUMBER  FORMAT  CONTENTS" 

1449 

PRINT. 

" FI  A1  SIMULATOR  CODE* 

1479 

PRINT. 

" F2  A2  FUNCTION  CODE" 

1489 

PRINT. 

“ F3  A2  SUBSYSTEM  CODE" 

1499 

PRINT. 

" F4  A8  MFC  NODULE  CODE" 

17M 

PRINT. 

" F3  rtl  PROCRAM  LANGUAGE’ 

1719 

PRINT. 

" F4  F4.2  TIMING  - MFC  EST" 

1729 

PRINT. 

" F7  15  INSTR  - MFC  EST* 

1739 

PRINT. 

* F8  15  DATA  - MFC  EST" 

1749 

PRINT. 

" F9  F5.1  CPS  - CURRENT" 

1739 

PRINT. 

" FID  F4.2  TIMING  - CURRENT" 

1749 

PRINT. 

" Fll  15  INSTR  - CURRENT" 

1779 

PRINT. 

* F12  15  DATA  - CURRENT" 

1789 

PRINT. 

* F13  12  TEAR  OF  UPDATE" 

1799 

PRINT. 

* F14  A2  COMPUTER  SYSTEM" 

18M 

PRINT, 

" F15  A39  COMMENTS  TEXT" 

1819 

PRINT. 

" F14  A1  USER  FLAG  1" 

1829 

PRINT, 

* FI7  At  USER  FLAG  2“ 

1839 

PRINT. 

• F18  A1  USER  FLAG  3" 

1849 

PRINT, 

N N 

1859 

PRINT, 

N N 

1849  3 

PRINT, 

"VALUES  SPECIFIED  FOR  ALPHA  FIELDS  FI  THRU  FS,  AND  F14  THRU" 

18798 

" F18  MUST  BE  DEL1H-" 

1889 

PRINT, 

"1TED  BT  QUOTES.  VALUES  SPECIFIED  FOR  NUMERIC  FIELDS  F4  TH" 

18998 

"RU  F13  MUST  BE" 

19M 

PRINT, 

"DELIMITED  BT  '/'.  FOR  EXAMPLE," 

1919 

PRINT, 

" IF11  CE  125th  AND,  F19  LE  /5.95/1.  OR,  F13  EQ  /74/I" 

1929 

PRINT. 

"MORE  EXAMPLES:" 

1939 

PRINT. 

" FI  NE  'AT 

1949 

PRINT, 

" FI  CT  'ET 

1939 

PRINT, 

" F12  LT  F8I" 

1949 

PRINT, 

"UP  TO  89  CHARACTERS  NAT  BE  ENTERED  PER  LINE.  LONG  LINES  ", 

19798 

"NAT  BE  CONTINUED  ON” 

1989 

PRINT, 

"FOLLQHING  LINES.  SINSIZ  HILL  PROMPT  UITH  A '*'  UNTIL  '#'  ■ 

lit 
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199#t  -IS  DETECTED.- 

2###  PRINT.  -(SEE  USER'S  GUIDE  FOR  ADDITIONAL  INFORMATION.) 

2111  4 PRINT*  "INPUT  STRING  NON.  ENTER  'I*  FOR  INSTRUCTIONS. 
2121* 

2131*  - - CLEAR  LOGIC  TABLES. 

2141  S 10  7 I * 1*  25 
2151  FUNC(I)  * • 

2D4I  1 VALID  x I 

2171  CVAL(I)  x BLANKS 

218#  NPL(I)  * # 

2#9#  7 CONTINUE 

211#  DO  8 I * 1*  15 

211#  LEVEL(I)  x f 
2121  OUTCON ( I > * I 
2131  LOP(I)  x | 

214#  SUITS! I)  x | 

215#  8 CONTINUE 

216#  HP  x f 

217#  ff>  * 1 

218#  OHINF  * f 

219#  PTEXT  * f 

22##  NFCPT  < 1 

221#  OPARIN  > # 

222#  CPARIN  x f 

223#  ODRFC  * | 1 

224#  IDRFC  * # 

225#  OCOHP  * | 

226#  TEHP2  * BLANKS 

227#  TEHP3  * BLANKS 

228#  IB  READ  61#*  INPUT  x 

229#  IFIINPUT.EQ.'IM  GO  TO  2 ' 

23##  PRINT  612.  INPUT 
231#  61#  FORMAT  <A8#>  * 

232#  612  FORMAT  (U.  A8#> 

233#*  • - BEGIN  DECODING  INPUT. 

234#  IP  * 1 * 

235#  IF(HP.GT.f)  GO  TO  15 

236#  12  NCHA  > • 

237#  LEAON  > # 

238#  LHOLO  * - * 

239#*  - - EXTRACT  NEXT  CHARACTER. 

24##  15  IFUP.CT.8#)  GO  TO  If 

241#  CALL  CONCAT  (TEMP*  1.  INPUT.  IP.  1) 

242#*  - • FIND  OUT  WHICH  CHARACTER  IT  IS. 

243#  IF (TEHP.EQ. * ’)  GO  TO  4# 

244#  IF(TEHP.EC.'f')  GO  TO  3f« 

245#  IF(TEMP.EO.'C)  GO  TO  4f« 

246#  IF (TEHP.EQ. * ) * ) GO  ID  43# 

247#  IF  (TEHP.EQ.  ».M  GO  TO  475 

248#  HOSTR  « .F. 

249#  IFITEHP.EQ.QUOTE  .OR.  TEHP.EQ.'-')  GO  TQ  3#f 
2Sf#  IFITEHP.EQ.'/')  GO  TO  2f# 


2511  IF (TEHP.EQ. * . ' ) CO  TO  23f 
252ft 

253ft  - - HOT  A CONTROL  CHARACTER. 

254#  IF  (LIT)  CO  TO  7f 

255f  IF(HAJF)  CO  TO  7f 

254f  IF(NINF)  CO  TO  26f 

257#  IF(CONPF)  CO  TO  5# 

258fC 

259ft  - - RUST  BE  A DRFC  CODE. 

2644  IF (TENP.EQ. *F* ) CO  TO  26 

26H  24  PRINT.  "FIELD  NUMBERS  MUST  BE  PRECEEOED  BT  ,F’.“ 

2624  CO  TO  33 

♦ 2634  26  IP  * IP  t I 

264f  CALL  CONCAT  (OTEIIP.  I.  INPUT.  IP.  2) 

265f  28  DO  3fl  I DRFC  * 1.  18 

266f  IF (DTEHP.EQ.DRFC ( IDRFC) > CO  TO  35 

267f  3f  CONTINUE 

268f  IF(RTN)  CO  TO  31 

269f  RTN  * .T. 

27fft  - - OVERWRITE  2ND  CHARACTER  IN  DTEHP  WITH  A BLANK. 

27H  CALL  CONCAT  (DTEHP.  2.  BLANKS.  1.  I) 

272f  IP  * IP  - 1 

273f  CO  TO  28 

, 274ft  - - NOT  AN  ACCEPTABLE  DRFC  VALUE. 

275f  31  PRINT  32.  DTEHP 

276f  32  FORHAT  (II.  A2.  " IS  NOT  A VALID  DATA  RECORD  FIELD  CODE.") 
277t  RTN  * .F. 

278#  33  PRINT  34 

279f  34  FORHAT  (II,  "RE*INPUT  CONTROL  CHARACTER  STRINC.") 

28fft  - • RESET  LOCIC  TABLE. 

281f  CO  TO  5 

282fC 

283ft  - - HAVE  A VALID  DRFC. 

284f  35  FUNC(FP)  * 4 

2854  IVAL(FP)  * IDRFC 

286ft  - - SAVE  THIS  IDRFC. 

287f  ODRFC  * IDRFC 

288f  HP  * HP  t | 

289f  HPLIFP)  « HP 

29N  LEVEL  (HP)  * OPARIN 

291f  CONPF  * .T. 

292f  IP  * IP  t l 

2934  FP  * FP  ♦ 1 

2944  CO  TO  15 

2954C 

296ft  - • CHARACTER  IS  A BLANK. 

297#  4f  IF(ALIT)  CO  TO  7f 

2984  IF(INUK)  CO  TO  84 

299f  IP  * IP  ♦ J 

3fff  CO  TO  15 

34  IfC 

342ft  - - EXTRACT  COMPARISON  FUNCTION  CODE. 
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3031  50  CALL  CONCAT  (DTEHP,  1,  INPUT,  IP,  2) 

3040  DO  55  ICOHP  * 1>  & 

3050  IF (DTEHP.EQ.CONPI ICOHP) > CO  TO  45 

3040  55  CONTINUE 

3070  PRINT  &0i  QTEHP 

3080  40  FORMAT  (IX,  A2,  " IS  NOT  A VALID  COMPARISON  CODE.") 

3090  CO  TO  33 

3100C 

3110*  - • HAVE  A VALID  COMP  VALUE. 

3120  45  lF(ICQMP.EQ.OCONP)  CO  TO  47 
3130  FUNC(FP)  - 3 

3140  IVAL(FP)  * ICOMP 

3150*  - - SAVE  THIS  ICOHP  VALUE. 

3140  OCOHP  = ICOHP 

3170  HPLIFP)  = HP 

3180  FP  * FP  ♦ 1 

3190  47  COHPF  * .F. 

3200  LIT  * .T. 

3210  IP  - IP  * 2 

3220  CO  TO  12 

3230C 

3240*  - - UORK  LITERAL  OR  MAJF  VALUE. 

3250  70  1NHK  * .T. 

3240  IP  * IP  * 1 

3270  IF (NCHA.EQ.30)  CO  TO  72 

3280  NCHA  = NCHA  * 1 

3290  CALL  CONCAT  (LHOLD*  NCHA,  TEMP,  1,  1) 

3300  CO  TO  15 

3310*  - * ERROR  - CHARACTER  STRINC  TOO  LONC. 

3320  72  PRINT  75,  LHOLD 

3330  75  FORMAT  (IX,  "THE  FOLLOUINC  LITERAL  CHARACTER  STRINC  HAS  ", 
33401  "BEEN  TRUNCATED  AT  30  CHARACTERS:  ",  /,  A30) 

3350  CO  TO  15 

3340C 

3370*  • - HAVE  ENCOUNTERED  A BLANK  IN  LITERAL  STRINC. 

3380  80  IF(ILIT)  CO  TO  84 

3390  IF (MAJF)  CO  TO  87 

3400  IF (NCHA.CT. 1 ) CO  TO  81 

3410  IF (ODRFC.EQ. 1 .OR.  OORFC.EQ.5  .OR.  ODRFC.CT. 15)  CO  TO  108 

3420  81  CALL  CONCAT  (TEMP,  1,  LHOLD,  1,  1) 

3430  IF(TEHP.EO.'F')  CO  TO  120 

3440  PRINT  82,  LHOLD 

3450  82  FORMAT  (IX,  "CANNOT  PROCESS  FOLLOWING  PORTION  OF  INPUT  ", 
34404  "STRING:",  /,  A30) 

3470  CO  TO  33 

3480  84  PRINT  85 

3490  85  FORMAT  (IX,  "BLANK  ENCOUNTERED  IN  NUMERIC  LITERAL  STRINC.", 
35004  / , "IGNORE  BLANK,  CONTINUE  PROCESS I NC."> 

3510  87  IP  * IP  ♦ 1 

3520  CO  TO  15 

3530C 

3540*  • - STORE  NUMERIC  LITERAL. 
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355#  91  IFINCHA.LT. 6)  CO  TO  95 
3541  91  PRINT  92r  LHOID 

3571  92  FORMAT  (1X«  "WARN INC:  TOO  RANT  CHARACTERS  IN  FOLLOUINC  "» 

358ft  "NUMERIC  LITERAL:  "»  /.  A3«> 

3591  CO  TO  33 

3411  95  IF10DRFC.EQ.4  .OR.  0DRFC.EQ.9  .OR.  ODRFC.EO.lf)  CO  TO  10# 

3411*  - - IF  DRFC  IS  FOR  TR.  DON'T  SHIFT  NUMBERS. 

3421  IF10DRFC.EQ.13)  CO  TO  118 
3431*  - • JUST  STORE  A 5 DIDCET  VALUE. 

3441  IF1NCHA.EQ.5)  CO  TO  108 

3450*  - - FILL  THE  REST  OF  THE  HOLD  UORD  WITH  ZEROS. 

3440  CALL  CONCAT  (HOLD(l).  NCHA+1.  ZEROS.  1.  4-NCHA) 

3470  OROTAT  • ILR  (IRQTAT.  (4*(NCHA*1))) 

3480  HOLD ( 1 ) • HOLD (4) 

3490  NCHA  * 5 

3700  CO  TO  108 

3710C 

3720  Iff  IF1NCHA.EQ.5)  CO  TO  105 
3730*  - - FILL  WITH  TRAILING  ZEROES. 

3740  CALL  CONCAT  (HOLD(l).  (NCHA+1).  ZEROS.  1.  (5-NCHAI) 

3750*  - - CHECK  FOR  PROPER  DECIMAL  POINT  POSITION. 

3740  105  JO-  LEADN 
3770  IF1J.EQ.3)  CO  TO  115 

3780  IF ( J.EQ.0)  CO  TO  108 

3790*  - - INSERT  LEADING  ZEROS. 

3800  CALL  CONCAT  (HOLD (4).  1.  ZEROS.  1.  J) 

3810*  - - HOVE  THE  REST  OF  THE  CHARACTERS.  - 

3820  CALL  CONCAT  (H0LDI4).  (J*l>.  HOLD(l).  1.  (4-J>) 

3830*  - - REPLACE  VALUE. 

3840  HOLD(l)  * HOLD (4) 

3850  NCHA  * 5 

3840*  - - IF  MORE  THAN  5 CHARACTERS.  TRUNCATE  TO  5. 

3870  108  IF (NCHA.CT.5)  NCHA  = 5 

3880*  - • MOVE  CHARACTERS  INTO  TARGET  VALUE. 

3890  110  CALL  CONCAT  (CVAL(FP).  1.  LHOLD.  1.  NCHA) 

3900  FUNCIFP)  * 5 

3910  IF10MINF.EQ.2)  FUNCIFP)  - -5 

3920  1FI0NINF.EQ.3)  FUNCIFP)  * -7 

3930  112  RPL(FP)  * HP 

3940  FP  * FP  ♦ 1 

3950  IF1IT3)  GO  TO  505 

3940  LIT  * .F. 

IIIUK  s P 

3980  IF1BT1  .OR.  BT2)  CO  TO  445 
3990  HINF  * .T. 

4000  IP  < IP  * 1 

4010  CO  TO  12 

4020C 

4030  US  PRINT  117.  HOLOll) 

4040  117  FORMAT  (II.  "NO  DECIMAL  PT  IN  FOLLOUINC  NUMERIC  LITERAL:  n./.A4) 
4050  CO  TQ  33 

4040*  - - HAVE  TUO-CHARACTER  LITERAL.  CHECK  TO  SEE  IF  IT 
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4591*  - - 
44##  271 
441#*  - - 
4421 
443f 


4451 

444#  274 
447#  275 
448# 

449# 

47H 

471#*  - - 
472#  28# 
473# 

474# 

475# 

474# 

477# 

478#C 
479#*  - - 
48##  3M 
481# 

482#*  - - 
483# 

484#*  * - 
485#  385 
484# 

487#*  * - 
488#  387 
489# 

49##*  - - 
491# 

492#*  - - 
493# 

494# 

495#  308 
49411 
497M 
498#*  - - 
499# 

C JJJj  . _ 
Jflf* 

5#i# 

S#2# 

5#3f  31# 

5#4# 

5#Sf 

584#  312 

5#7# 

5080 

5090 

51N  314 


HAVE  FOUND  HINT  * 2. 

IF(0HINF.EQ.2>  CO  TO  275 
SET  UP  ENTRY  IN  FUNC  TABLE. 

OHINF  * 2 
FUNC(FP)  * -2 
IVAL(FP)  * 2 
HPl(FP)  * HP 
FP  * FP  + 1 
H1NF  * .F. 

LIT  « .T. 

IP  * IP  ♦ 2 
CO  TO  12 

HAVE  FOUND  NINF  - 3. 

IF (OHINF. EQ. 3)  CO  TO  275 
OHINF  * 3 
FUNC (FP)  • 2 
IVAL(FP)  * 3 
HPL(FP)  * HP 
CO  TO  274 

FOUND  A QUOTE. 

IFIALIT)  CO  TO  3#7 

IF (LIT)  GO  TO  305 

ERROR  NOT  EXPECTING  A QUOTE. 

CO  TO  2#2 

SET  UP  FOR  ALPHA  LITERAL  STRING. 

ALIT  * .T. 

CO  TO  87 

END  OF  ALIT  STRING. 

ALIT  * .F. 

LIT  * .F. 

CHECK  FOR  MANUFACTURER'S  CODE. 

IF (0DRFC.NE.4)  CO  TO  315 
HAVE  HFC'S  HODULE  CODE. 

IFIHFCPT.LE.l#)  CO  TO  31# 

PRINT  308 • LHOLD 

FORMAT  (II.  "NO  HORE  ROOM  IN  TABLES  FOR  FOLLOUINC  NODULE  "t 

"CODE:  "./»  A3*.  /.  "LINIT  OF  1#  CODES  HAS  BEEN  EICEEDED.". 
" FURTHER  HODULE  CODES  HILL  BE  IGNORED.") 

IF  A CONTINUING  STRING  OF  ORS  • SKIP  THIS  ENTRY. 

IF (FUNC (FP  - 1) .EQ. -5)  CO  TO  314 
REINSERT  LAST  VALUE  IN  TABLE. 

LHOLD  * NFCCOD(lf) 

HFCPT  * If 

CALL  CONCAT  (HFCCOD (HFCPT).  1.  LHOLD.  1.  8) 

IVAL(FP)  * HFCPT 
HFCPT  * HFCPT  ♦ 1 
FUNC(FP)  * -5 

IF (OM1NF.EO.#)  FUNC(FP)  * 5 
HPL(FP)  * HP 
FP  * FP  + 1 
IP  * IP  ♦ 1 


r 


5111  INHK  * .F. 

5121  H1NF  * .T. 

5131  CO  TO  12 

5140*  - - CHECK  FOR  CTEIT  STRING. 

5151  315  IF(QDRFC.EQ.IS)  CO  TO  325 

514#*  • - HAVE  LIT  BUT  NOT  FOR  FIELD  4 OR  15. 

5171  CO  TO  tfO 

5181*  - - HAVE  A CTEIT  STRING.  CHECK  FOR  ROOH  IN  CTEIT  TABLE. 

5191  325  IF (PTEXT.LE.5)  GO  TO  335 
52U  PRINT  33fi  LHOLD 

521#  33#  FORMAT  (Hi  "NO  HORE  ROOH  IN  TABLES  FOR  FOLLONINC  TE1T  ", 

522#t  "STRING:  ",  /,  A3 4,  /.  “LIMIT  OF  5 ENTRIES  HAS  BEEN  "• 

523ft  "EXCEEDED.  THIS  ENTRY  IS  BEING  DISPOSED  OF.") 

524#  CO  TO  314 

525#  335  CALL  CONCAT  (CTEXT (PTEXT) » li  LHOLD,  1,  3f> 

524#  IVALIFP)  * PTEIT 

527*  PTEIT  * PTEIT  ♦ 1 

528#  CO  TO  312 

529#C 

53##*  - - HAVE  FOUND  ’(*.  INCREMENT  LEVEL  OF  PARENTHESIS. 

531#  4##  OPARIN  * OPARIN  * 1 

532#  1FIC0HPF  .OR.  LIT  .OR.  NINE  .OR.  HAJF)  CO  TO  4#4 
533#  GO  TO  87 

534#  4#4  PRINT  4«4,  IP 

535#  4#4  FORMAT  (II,  "UNEIPECTED  PARENTHESIS  ENCOUNTERED  IN  ", 

534*1  12,  "TH  CHARACTER  POSITION  OF  THE  ",  /, 

537#t  "INPUT  CONTROL  STRING.") 

538#  CO  TO  33 
539#C 

54##*  • - HAVE  FOUND  ’)'. 

541#  43#  CPARIN  * CPARIN  * 1 

542#  IFtCPARIN.LE. OPARIN)  CO  TO  44# 

543#  PRINT  435,  IP 

544#  435  FORMAT  (IX,  "PARENTCSIS  AT  CHARACTER  POSITION  ",  12, 

545ft  " DOES  NOT  DALANCE.") 

5ii|  Pfl  TO  33 

547#  44#  IF(NOSTR)  CO  TO  449 

548#  IF (COUPE  .OR.  ALIT  .OR.  HAJF  .OR.  ILIT)  CO  TO  4#4 
549#  IF ( .NOT.  LIT)  CO  TO  445 
55##  DTI  > .T. 

551#  CO  TO  8# 

552#*  - - SEE  IF  NEED  TO  INDICATE  END  OF  FUNCTION. 

553#  445  IF(0HINF.£B.3)  CO  TO  447 
554#  OHINF  * # 

555#  FUNC(FP)  * -2 
554#  IVALIFP)  * • 

557#  HPL(FP)  * NP 

558#  IF(FUNC(FP-l).EQ.-5  .OR. 

559#t  FUNC(FP-l) .E0.-4)  FUNC(FP-l)  * -FUNC(FP-l) 

54##  FP  * FP  ♦ 1 

541#  CO  TO  449 

542#  447  IF(FUNC(FP-l).Efl.S  .OR. 


' '• 


563ft  FUNC(FP-1).E0.6)  FUHC(FP-l)  * -FUMC(FP-l) 

5641  449  IF (BIZ)  GO  TO  485 

5651  HP  * HP  ♦ 1 

5661  LEVEL (HP)  * OPARIN  • 1 

5671  FUNC(FP)  * -1 

5681  HPL(FP)  * HP 

569#  FP  * FP  ♦ 1 

57ff  HIHF  * .F. 

5711  IP  = IP  ♦ 1 

572#  ill  * .F. 

5731  HOSTR  * .T. 

574f  OPARIN  * OPARIN  - 1 
5751  CPARIN  * CPARIN  • I 
5761  GO  TO  12 

577#C 

5781*  - * HAVE  FOUND  A COHHA. 

579#  475  IP  * IP  ♦ 1 

58M  IF(HAJF)  CO  TO  49f 

5811  IF (HOSTR)  GO  TO  485 

5821  IF(COHPF  .OR.  ILIT)  GO  TO  478 

5831  GO  TO  482 

5848  478  PRINT  48f>  IP 

5851  481  FORHAT  (IX.  "UNEXPECTED  COHHA  AT  CHARACTER  POSITION  12) 

5861  GO  TO  33 

5871  482  IF(ALIT)  GO  TO  7f 

Sftftfl  SI?  : T 

5891  IF(.NOT.LIT)  CO  TO  445 

S9M*  • - POSSIBLE  LITERAL  FOLLOWED  BT  COHHA. 

5911  CO  TO  81 
5921  485  HINF  = .F. 

5931  HAJF  * .T. 

5941  BT2  * .F. 

5951  CO  TO  12 

5969C 

5971*  - - HAVE  FOUND  END  OF  HAJF. 

5981  491  I F (HOLD ( 1 ) .EQ.’ANDM  CO  TO  494 
5991  IF (HOLD ( 1 ) . EQ . ’ OR’ ) CO  TO  496 

6MI  PRINT  492.  HOLD(l).  IP  - 1 

6fllf  492  FORHAT  (IX.  "HAJOR  FUNCTION  CODE  ".  A6.  1 ENDING  IN  ". 
612ft  "CHARACTER  POSITION  ".  12.  /.  "IS  NOT  A PROPER  ". 

6f3ft  "HAJOR  FUNCTION  CODE.") 

6#4f  GO  TO  33 

6§5f  494  KLOP  * 1 

6f6f  GO  TO  497 

6«7f  496  KLOP  * 2 

6f8f  497  LOP  (HP)  * KLOP 
6191  INNK  * .F. 

61N  HAJF  * .F. 

6111  GO  TO  12 

612fC 

613f*  - - FINI... 

614#  5 ff  LOP(HP)  « • 
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4151  IF (NOSTR  .OR.  NCHA.EQ.I)  GO  TO  SIS 
illl  BT3  * .1. 

4171  GO  TO  81 

4181  515  FUNC(FP)  = -8 

4191*  - - INSORE  THAT  PRECEEOING  FUNC  IS  NEGATIVE. 
42M  IF(FUNC(FP-1).CT.I)  FUNC(FP-l)  * *FONC(FP-I) 

4211  IF (OPARIN.EO.CPARIN)  CO  TO  SIS 

4221  PRINT  Sll 

4231  Sll  FORMAT  (II.  "PARENTCSIS  DO  NOT  BALANCE.") 
4241  GO  TO  33 

4251  SIS  RETURN 

4241  END 
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SUBROUTINE  DARAT 


1MICDARAT  DISPLAT  'ARRAYS*  COfflON. 

1I1IC 

1121  SUBROUTINE  DARAT  (NODE) 

1I3IC 

1«4#C  NODE: 

1I5IC  1 * PRINT  ALL  VALUES. 

1I6IC  2 » PRINT  RECORDS  ONLY. 

II7fC 

1181  CHARACTER  3TR*8(15).  LSTR*3I.  OUT*7l»  F0RH1*12/“(T  .Mi',')11/. 

1I9K  F0RN2»12/'(T  ,»  TO  »>"/.  F0RH3«8/'(1I.A  >»/. 

HIM.  NULL*3f/'*NULL*'/ 

I11IC 

1121  INTEGER  RP»  FP.  SP*  REC(2I)>  FLD(IS).  OP 

I13K 

till  COHHON  /ARRAYS/  RP.  REC.  FPt  FLDi  SP.  STR.  LSTR.  NFLDS 
I15IC 

1141  IF (HODE.EQ. 1 ) CO  TO  3 

1171  PRINT.  "RECORDS  TO  BE  DELETED:' 

U8I  CO  TO  4 

1191  3 PRINT » 'RECORDS  TO  BE  NODIFIED:" 

12M  4 OP  - 1 

1211  DO  21  I = I.  RP 

1221  ENCODE  (FORNli  5)  OP 

1231  5 FORHAT  (T3i  12) 

1241  MM  * REC(I) 

1291  IF(NUH.CE.I)  CO  TO  II 

1261  HUH  --  -NUHI  OP  - OP  - 1 
1271  ENCODE  (FORH2.  5)  OP 

1281  ENCODE  (OUT.  FORNZ) 

1291  OP  * OP  ♦ 4 

13N  ENCODE  (FQRHii  5)  OP 

1311  II  ENCOOE  'OUT.  F0RN1)  NUN 

1321  OP  * OP  ♦ 5 

1331  IF(OP.CT.M)  CO  TO  22 

1341  21  CONTINUE 

I3M  OP  * OP  - II  IFIOP.LT. 2)  CO  TO  27 
1341  22  ENCODE  (F0RR3.  24)  OP  * 1 
1371  24  FORHAT  (T4.I2) 

1381  UNITE  (Mf  F0RN3)  OUT 

1391  OP  * 1 

1411  IF(I.LT.RP)  CO  TO  21 

1411  27  IFIH00E.E0.2)  RETURN 

1421  PRINT.  "FIELDS  TO  BE  NODIFIED  AND  NEU  VALUES:* 

1431  DO  IN  I > 1.  FP 

1441  IF(FLDd).EQ.lS)  CO  TO  SI 

1451  28  UNITE  (16.  31)  FLD(I).  STR(I) 

1461  31  FORHAT  (II.  13.  " • ".  A8) 
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147f 

CO  TO  111 

1481  SI 

IF (LSTR.EQ .NULL)  CO  TO  28 

Uff 

WRITE  <14.  41)  FLDU).  LSTR 

15M  61 

FORMAT  (Hi  13.  " * ”>  A3I) 

1511  Iff 

CONTINUE 

1S2I 

return;  end 

SUBROUTINE  DIRHOO 


lMfCOIRHOD 

IIIIC 

1121 

1030C 

1141 

IKK 
1KIC 

1171 
1I8K 
1090C 

UM 

line 
1121 
113IG 

mi 

1150C 
UM 
117IC 
l!8fC 
1191 
12H 
1211 
1221 
1231 
1241  25 
1251 
1241 
1271 
1281 
1291 
1311 
1311 


DIRECTORT  MODIFIER  ROUTINE. 

SUBROUTINE  DIRNOD 

CHARACTER  FNANE»4.  DATES*8(3)t  SYSCQD«2(40> » STSNAM»12(4G) , 
ANStli  SNAMEU2.  SC0DE»2 

INTEGER  SECNO.  LSIZEt  0IR(3>>  INF0(3)>  DATAST3) t BSSEC(40). 
DESEC (40).  DNSEC (40) * NOEL (41),  RNUN 

LOGICAL  OIREUP.  INFOUP.  DATAUPt  NINFO 

COMMON  /RISC/  DIREUPi  INFOUP.  DATAUPt  NINFO.  NSEL 

COMMON  /IDSEC/  FNAME.  DATES.  LSIZE.  DIR.  INFO.  DATAS.  RNUN 

COMMON  /DRSEC/  SYSCOD.  STSNAN.  DSSEC.  DESEC.  DNSEC.  NDEL 


IF (.NOT.  NINFO)  GO  TO  41 
PRINT.  "INSTRUCTIONS  (T  OR  N)?* 

READ.  ANS 

IF(ANS.EQ.'Y’)  GO  TO  25 
NINFO  * ,F.I  GO  TO  41 
NINFO  > .T. 

PRINT.  "THIS  ROUTINE  NILL  ALLON  ONE  TO  MODIFY  THE  DATA  BASE" 
PRINT.  "DIRECTORY  AS  FOLLOHS:" 

PRINT.  " A - ADD  HEN  SYSTEM  NAMES  AND  CODES  TO  THE  DIRECTORY." 
PRINT.  " C • CHANGE  SYSTEM  NAMES  IN  THE  DIRECTORY." 

PRINT.  " D • DELETE  OBSOLETE  OR  INCORRECT  DIRECTORY  ENTRIES." 
PRINT.  " L - LIST  DIRECTORT  CONTENTS." 

PRINT.  " " 


1321  41  PRINT.  "ENTER:  A (ADD).  C (CHANGE).  D (DELETE).  E (END).  I (". 
133K  "INSTRUCTIONS).  L (LIST)." 

1341  READ.  ANS 

1351  IF(ANS.EQ.'A')  GO  TO  40 

1341  IF(ANS.EQ.'C')  CO  TO  154 

1371  IF(ANS.EO.'D')  GO  TO  2H 

I3M  IF  (ANS.  EO. 'EM  GO  TO  241 

1391  IF (AMS.EQ. ' I f ) GO  TO  25 
I4M  IF(ANS.Efl.’L’)  CALL  DRLIST 

1411  GO  TO  44 

I424C 

1430*  - - ADO  MEN  DIRECTORT  ENTRY. 

1440  41  PRINT.  "ENTER  NEH  SYSTEM  NAME  OF  12  OR  FEWER  CHARACTERS  (IN  ". 
145K  "QUOTES)." 

1440  PRINT.  "AND  THE  TMO-CHARACTER  SYSTEM  CODE." 
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M7I  READ*  SNAHE.  SCODE 

1481*  • • CHECK  FOR  DUPLICATE  STSCOD  VALUE. 

149f  DO  71  11  * h DIR(3) 

ISM  IFISCOOE.EO.STSCOOUl))  CO  TO  81 

ISlf  71  CONTINUE 

1521  CO  TO  91 

1530*  - - THAT  CODE  IS  ALREADT  IN  USE. 

1541  81  PRINT  8St  SCODE.  STSNAH(U) 

1551  85  FORMAT  (1X»  •»■.  A2i  IS  ALREADT  IN  USE  FOR  AI2,*\"I 
1541  —CIT  TO  41 

1571*  • - CREATE  NEU  DIRECTOR!  ENTRT. 

1581  98  IF  (DIR  (3)  .LT.  41)  GO  TO  IN 

1591  PRINT  95i  DIR(3) 

14M  95  FORMAT  (II.  "THERE  ARE  CURRENTLY  "t  I2>  ' ENTRIES  IN  THE  " 

14114  "DIRECTORY. "r/t  "NO  NORE  ROOM  FOR  NEU  ENTRIES.") 

1428  CO  TO  48 

1438*  - - GET  NEXT  AVAL I ABLE  SECTOR  NUMBER. 

1448  IN  SECNO  * DAT  AS  (3) 

1458  DATAS(3)  * DATAS43)  * 1 

1448  IF(DATAS(2).CT.(DATAS(3)-DATAS(1>)>  CO  TO  118 

1478  PRINT*  "CANNOT  CREATE  NEU  DIRECTOR!  ENTRT  DUE  TO  LACK  OF  SPACE" 

1488  PRINT.  "FOR  DATA  RECORDS.  RECOMMEND  REBUILDING  THE  OATA" 

1498  PRINT.  "BASE  ON  LARGER  FILE  SPACE." 

17M  DAT  AS  (3)  * DATAS13)  - 1 

1718  CO  TO  48 

1728*  - - INSERT  VALUES  IN  DIRECTOR!. 

1738  118  DIR(3)  * DIR<3>  * 1 

1748  n * DIRI3) 

1758  DSSEC(N)  * SECNO 

1748  DESEC  IN)  * SECNO 

1778  DNSEC(N)  = 1 

1788  NDEL(N)  * 8 

1798  DIREUP  * .T. 

1888  STSCOD(N)  * SCODE 

1818  STSNAN(N)  * SNAHE 

1828*  - * ADD  COHPLETE. 

1838  PRINT.  "ADD  COHPLETE." 

1848  CO  TO  48 

I858C 

1848*  • • CHANCE  A DIRECTOR!  STSTEH  NAHE. 

1878  158  PRINT.  "ENTER  NEU  STSTEH  NAHE  (IN  QUOTES)  OF  12  OR  FEUER" 

1888  PRINT.  "CHARACTERS.  AND  THE  'OLD'  TWO-CHARACTER  STSTEH  COOE." 

1898  READ.  SNAIC.  SCODE 

1988  DO  148  12  * 1.  BIRO) 

1918  IF  r SCODE .EQ.STSCODt 12) ) CO  TO  178 

1928  148  CONTINUE 

1938  PRINT  145.  SCODE 

1948  145  FORM!  (11.  "NO  HATCH  OH  STSTEH  CODE  A2»  ".") 

1958  CO  TO  48 

1948*  - - INSERT  NEU  STSTEH  NAHE. 

1978  178  SYSNAHU2)  * SNAHE 

1988  DIREUP  * .T. 
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199* 

2101 

2I1IC 
212**  - - 

2131  2 ** 
214* 

2*51 

2*4* 

2*7* 

2181  21* 
2*91 

21M*  - • 
211*  22* 
212* 

213* 

214* 

215* 

214* 

217* 

218* 

219* 

22**  24* 
221**  - - 
222*  25* 
223* 

224* 

225* 

22&0C 
227**  - - 
228*  26* 
229* 

23M 


PRINT.  "NAME  CHANCE  COMPLETE." 
CO  TO  4* 


DELETE  DIRECTORY  ENTRY. 

PRINT.  "ENTER  THE  TIM-CHARACTER  SYSTEM  CODE  OF  THE" 
PRINT.  "DIRECTORY  ENTRY  TO  DE  DELETED." 

READ.  SCODE 

DO  21*  I - 1.  DIR (3) 

IF (SCOOE.EQ.SYSCOD ( I) ) CO  TO  220 

CONTINUE 

CO  TO  16* 

RIPPLE  ENTRIES  UP  IN  DIRECTORY. 

L * I 

IF (L.EQ.DIR (3) ) CO  TO  250 
DO  24*  J * L.  DIR13)  - 1 

♦ I) 

♦ 1) 

1) 

1) 

1) 


1 


STSNAN(J)  - SYSNANU 
SYSCOD(J)  * SYSC0D1J 
DSSEC(J)  * DSSEC1J  ♦ 

DESEC (J)  * DESEC (J  ♦ 

DNSEC(J)  * DNSECIJ  ♦ 

NDEL(J)  * NOEL ( J ♦ 1) 

CONTINUE 

REDUCE  THE  NUMBER  OF  DIRECTORY  ENTRIES  IN  IDSEC. 
DIR (3)  * DIR (3)  • 1 
DIREUP  * .T. 

PRINT.  "DELETE  COMPLETE." 

CO  TO  4* 


WRITE  ID  AND  DR  COMMONS  BACK  TO  THE  DATA  BASE. 
CALL  RHHEAD  (2) 

RETURN 


1 

! ■< 


END 


12* 


i ijj  * 'I+Vtmm 


SUBROUTINE  DRLIST 

1MICDRLIST  SUB  TO  DO  FORMATED  LIST  OF  DATA  BASE  DIRECTOR!. 

111!  SUBROUTINE  DRLIST 

lf2fC 

1131*  - - ROUTINE  TO  PERFORM  FORMATED  DUMP  OF  DATA  BASE 
114ft  DIRECTOR!  SECTION. 

lfSIC 

1MI  CHARACTER  FNAME*4.  DATES»8(3lt  STSNAM*12(4I).  STSC0D*2(4f) 

II7IC 

Ittf  INTECER  LSIZEi  DIR(3).  INF0(3).  DATAS(3li  RNUMt 

l«4ft  DSSEC (4f ) > DESEC I4f )•  DNSEC (4f).  NDEL(4f) 

j]ffC 

Ulf  COMMON  /IDSEC/  FRAME.  DATES.  LSIZE.  DIR.  INFO.  DATAS.  RNUH 
ll2fC 

U3f  COMMON  /DRSEC/  STSCOD.  STSNAM.  DSSEC.  DESEC.  DNSEC.  NDEL 
1 14fC 

USf  WRITE  (fit  Iff) 

llif  Iff  FORMAT  (lHft  tfl.  "SIMSIZ  DATA  BASE  DIRECTORY  SECTION".//. 
117ft  ZZI.  "DATA  DATA  SECTORS  NUMBER".  /. 

118ft  41.  "STSTEH  STST  STARTINC  ENDINC  KITH". 

114ft  " DELETED".  /.St.  "NAME  CODE  SECTOR". 

I2fft  " SECTOR  DATA  RECORDS".//) 

121f  DO  ISf  I - 1.  DIR(3) 

122f  WRITE  (ft.  14f)  STSNAM ( I ) » STSCOD(I).  DSSEC ( I > . DESEC ( I ) . 
123ft  DNSEC ( I ) . NDEL(I) 
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SUBROUTINE  DSPLAY 

1###CD$PLAT  DISPLAY  RECORDS. 

Ifll  SUBROUTINE  DSPLAT  (BUFF.  NUHB.  ITOTAL.  STRT.  POINT) 

1IZIC 

l!3f*  - • WERE: 

li4l»  BUFF  = ADDRESS  OF  BUFFER  CONTAINING  RECORDS 
1#5#*  TO  BE  DISPLAYED. 

IBM*  NUHB  * NUMBER  OF  RECORDS  TO  DISPLAY. 

1171*  ITOTAL  * NUMBER  OF  RECORDS  DISPLAYED  SO  FAR. 

118#*  STRT  * VALUE  TO  START  RENUMBERING  RECORDS  AT. 

1#9#»  POINT  - POINTER  TO  FIRST  RECORD  IN  BUFF  TO  BE 

UMt  DISPLAYED. 

UlfC 

1121  CHARACTER  BUFF*45#»  REC*9#(5)i  AC*1.  SYS+Z.  SUB*2. 

113#t  HODU*8.  LAN*1.  YR*2.  SC*2.  TEIT*3f.  FLltl. 

114ft  FL2*1.  FL3M.  FL4*1.  BUFF  1*45# 

115#C 

I1M  INTEGER  OTOTAL.  STRT.  RECN.  POINT 

117#C 

118#  EQUIVALENCE  (BUFFI.  REC(l)) 

119#C 

12##  COHHON  /TERHTTPE/  LINE 

121#C 

122****************************************************************** 

123#C 

124#*  • • HOVE  DATA. 

125#  BUFFI  - BUFF 


124#*  - 
125# 
12MC 
127#*  - 
128# 
129# 
13## 
131# 
132# 
133# 
134#  25 
135#  3# 


• CHECK  FOR  ZERO  RECORDS  IN  BUFFER. 
IF(NUHB.EQ.f)  CO  TO  7# 
IF(ITOTAL.NE.f)  CO  TO  25 
OTOTAL  - I 
I * POINT 
RECN  * STRT  - 1 
CO  TO  3# 

I * 1 

DO  6#  J * 1.  NUHB 


13M*  • • CHECK  FOR  A BLANK  RECORD. 

137#  DECODE  (REC(I).  32)  FL1 

138#  32  FORHAT  (T2,  Al) 

139#  IFtFLl.EQ.'  ')  CO  TO  7# 

14##  IF(L!NE.EQ.8f)  IR  * NOD(OTOTAL»  7) 

141#  IF (LINE .CT. 8#)  IR  * HOD (OTOTAL.  2#) 

142#  IF(IR.NE.f)  CO  TO  4# 

143#  IF (LINE.EQ.8#)  CO  TO  38 

144#  PRINT  34 

145#  34  FORHAT  (1H«.  " LINE  S/C  FUNC  SUBS  NODULE 
UMt  •ANUFACTURER'S--! CURRENT ! 


147ft 
148ft 
1 49ft 
ISff 

lSlf  u 
152f  38 
153ft 
154f  4f 
155f 
1541 
157f 
158ft 
159f  44 


16fft 

16lf 

1421 

163ft 

164f  46 

165ft 

166ft 

167f 

1681  5f 

169ft 

17fft 

1711  52 

172ft 

173M 

1740  54 

175f  6f 

1760  7f 

I77f 
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‘ST AT  USER  FLAGS"./."  NO  CODE  CODE  NAHE  ". 

'LANG  TIMING  INSTR  DATA  CPS  TIMING  INSTR  DATA  ". 

"TR  CC".  14X.  ‘TEXT".  14X.  “FLAG  U1  U2  U3".//) 

GO  TO  4f 
PRINT  38 

FORMAT  (lHf.  " S/C  FUNC  SUBS  NODULE  LANC  TIMING  M. 

‘INSTR  DATA  CPS  TIN1NC  INSTR  DATA  TR  CC") 

OTOTAL  * OTOTAL  ♦ 1 
1TOTAL  * ITOTAL  ♦ 1 
RECN  * RECN  + 1 

DECODE  (REC(I).  44)  AC.  STS.  SUB.  NODU.  LAN.  Til.  INI. 

DAI .CPS.  T12.  IN2.  DA2.  TR.  SC.  TEXT.  FL2.  FL3.  FL4 
FORMAT  (Ali  T3.  2A2.  A8.  Al.  F5.2»  215.  F4.1.  F5.2.  215. 

2A2.  A3f.  3A1) 

IF (LINE.CT.8f ) GO  TO  5f 

PRINT  46.  AC.  STS.  SUB.  NODU.  LAN.  Til.  INI.  DAI.  CPS. 

T12.  IN2.  DA2.  TR.  SC.  RECN.  TEXT.  FL1.  FL2.  FL3.  FL4 
FORRAT  (lHf.  2X«  Al.  2(3X.  A2).  2X*  A8.  3X>  Al.  F8.2. 

216.  F6.1*  F7.2.  216.  2(1X.  A2).  /.  IX. 

"RECf*",  13.  " TEXT=“»  A3f.  ‘ FLGS=".  Al.  IX.  3A1) 

CO  TO  54 

PRINT  52.  RECN.  AC.  STS.  SUB.  NODU.  LAN.  TU.  INI. 

DAI.  CPS.  TI2.  IN2.  0A2.  TR,  SC,  TEXT,  FL1, 

FL2,  FL3,  FL4 

FORMAT  (IX,  14,  3X,  Al.  2(3X,  A2),  2X,  A8,  2X,  Al, 

3X,  F6.2,  214,  F6.1,  F7.2,  216,  2(1X,  A2),  IX, 

A3f,  2X.  Al.  3X.  3 (2X , Al)) 

1*1  + 1 
CONTINUE 
RETURN 
END 
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SUBROUTINE  EVAL 

IfffCEVAL  SUB  TO  SELECT  RECORDS  THAT  MEET  CRITERIA, 
till  SUBROUTINE  EVAL  (REC.  ISTAT) 

IKK 

1830*  - - WHERE: 


REC  * 9#  CHARACTER  RECORD  TO  BE  EVALUATED. 
ISTAT  * RETURNED  STATUS  OF  EVALUATION. 

1 « REJECT  RECORD. 

2 * SELECT  RECORD. 

CHARACTER  CVAL«6(25)»  HFCC0D»8(18).  TARCET*8» 
TEIT*38»  CTEIT*38(5)>  REC»98 


INTEGER  FUK(2S)>  FP.  IVALI25).  NINFt  AFUNi  0UTC0MU5) . 


LEVEL (15) i LOPIlSlf 
HPL(25) j SUNER 


Bi  FRCB(2f) i NCBR(28). 


LOGICAL  EOT.  SKIP.  INCR.  NAJF.  SUNIT 

COMMON  /TABLES/  FUNC.  CVAL.  IVAL.  NPL. 

LOP.  NFCCOD.  CTEIT 


FRCB/  1. 

45. 
KBR/  1. 
S. 


3.  5.  7. 

51.  52.  54.  84. 
2.  2.  8.  1. 
2.  2.  30.  1. 


15.  16.  21.  26.  31.  35. 
85.  86.  2*0/. 

5.  5.  5.  4.  5. 
1.  1.  2*1/ 


104#* 
tf5f« 

I860* 

1070* 

INK 

INI  CHARACTER  CVAL«6(25>»  NFGC0D*8< if) . TARGET*8»  TAR2»6. 
11  Mi 
1 1 IK 
1121 
U3K 
1 14ft 
115fC 
1161 
117K 

1181  COMMON  /TABLES/  FUNC.  CVAL.  IVAL.  NPL.  LEVEL.  OUTCOH. 
119ft 
12MC 

1211  DATA  FRCB/  1.  3.  5.  7.  15.  16.  21.  26.  31.  35.  41. 
122ft 
1 23ft 
124ft 
1258* 

1271* 

1281  I TARGET  * ' * 

1291  TAR2  * 1 1 

1311  TEIT  * » » 

1318  FP  * 8 

1328  NAJF  * .F. 

1338  EOT  * .F. 

1348  SKIP  * .F. 

1358  IKR  * .F. 

1368  SUNIT  * .F. 

1378*  • - RESET  OUTCOM  TABLE. 

1388  DO  3 I * 1.  15 

1398  OUTCOH ( I > • 8 

1488  3 CONTINUE 

1418  5 FP  * FP  ♦ 1 

1428*  * - TAKE  THE  ABSOLUTE  VALUE  OF  THE  NEXT  FUNCTION. 

1438  AFUN  • ABSIFUNC (FP) ) 

1448*  - - UPDATE  VALUES  VIA  THE  FUNC  TABLE. 

1458  GO  TO  (18.  IS.  28.  25.  38.  35.  48.  45).  AFUN 
1468*  - - SET  NAJF  TRUE. 


124 


1471  If  HAJF  * .T. 

148#  CO  TO  71 

149ft  - - SET  HINM  FUNC  CODE. 

ISM  IS  IUNF  » IVAL(FP) 

ISlf  CO  TO  7f 
152ft  - - SET  ICOHP  VALUE. 

153#  21  ICOHP  * IVAL(FP) 

I54f  CO  TO  7f 
155ft  - - SET  I MFC  VALUE. 

156#  25  I MFC  * IVAL(FP) 

I57f  CO  TO  71 

158ft  - - SET  CHARACTER  TARGET  VALUE. 

159ft  CHECK  FM  MFC  - HC. 

16M  3f  IF(IMFC.NE.4>  CO  TO  32 
I61f  TARGET  * HFCCOD(IVALIFP)) 

162#  CO  TO  7f 

163ft  - - CHECK  FM  MFC  * TX. 

164f  32  IF(IMFC.tE.lS)  CO  TO  34 
165f  TEXT  * CTEXT (IVAL(FP) ) 

166f  CO  TO  7f 
1671  34  TARGET  * CVAL(FP) 

168f  CO  TO  7f 

169ft  - - SET  TARGET  VALUE  FROM  OTHER  VALUES  IN  RECMO. 

17M  35  1TAR  * IVAL(FP) 

17H  CALL  COMCAT (TARGET.  1.  RECr  FRCB(ITAR)  • NCBR(ITAR)) 

172f  CO  TO  7f 

173ft  - • SET  TARGET  2 VALUES. 

!74f  4f  TAR2  * CVALIFP) 

175#  CO  TO  7f 

176ft  - - SET  ENO  OF  TABLE  (EOT)  FLAG. 

177f  45  EOT  * .T. 

178f  CO  TO  75 

!79fC 

18M  7f  1F(FUNC (FP)  .CT.f ) CO  TO  5 
181ft  - • UPDATE  COMPLETE. 

182f  IF (SKIP)  CO  TO  13f 
183fC 

184#  75  IF(HAJF)  CO  TO  135 
!8Sf  IF ( .NOT.  EOT)  CO  TO  78 

I86f  KETL  » f 

187#  HP  i HPL(FP-l) 

188#  B « # 

189#  lF(HP.EO.l)  CO  TO  144 

I9M  DO  76  J » I.  HP 

191#  IF (LEVELtJI .EQ.f > CO  TO  77 

I92f  76  CONTINUE 

193#  77  I * HP  • J 

194#  CO  TO  144 

I9S#C 

196#  78  lF(IDNFC.EO.lS)  CO  TO  8# 

197#  K * KOHPCH( TARGET,  1,  REC.  FRCI(IDRFC).  NCM(IDRFC)) 
198#  CO  TO  9f 
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Wl*  • - COMPARE  TEIT  STRINGS. 

2fff  81  K * KONPCH  (TEXT • 1*  RECt  FRCBIIDRFC).  NCBR(IDRFC) ) 
2111  ?•  CO  TO  (l#2i  1«4*  IIS i 108.  111.  112) • ICONP 
2f2f*  - • EQ  CHECK. 

2131  112  IF(K.NE.I)  GO  TO  2H 
214#  GO  TO  12# 

215#*  - * NE  CHECK. 

2#6f  104  IF (K.EQ.0)  GO  TO  21# 

217#  GO  TO  12# 

2#8#t  - - GE  CHECK. 

2090  1#6  IF (K.NE.0)  CO  TO  11# 

210#  GO  TO  121 
2111*  * - IE  CHECK. 

212#  1#8  IF (K.NE.0)  CO  TO  112 
213#  GO  TO  12# 

214f»  - - GT  CHECK. 

21S#  11#  IF(K.NE.l)  CO  TO  2#« 

216#  GO  TO  12# 

217##  - - IT  CHECK. 

218#  112  IF(K.NE.-l)  GO  TO  2#« 

2191*  - - HAS  PASSED  THIS  CHECK... 

22##t  SET  OUTCOM  TO  TRUE. 

221#  1?J  OUTCOM (MPL (FP) ) * 1 

222#*  • • SKIP  THE  REST  OF  THE  CHECKS  FOR  THIS  LEVEL. 

223#  SKIP  * .T. 

224ft  • - SAVE  LAST  HP  VALUE. 

223#  LHP  > HPL(FP) 

226#  GO  TO  3 
2270C 

228ft  - • END  OF  THIS  FUNC.  CHECK  FOR  CHANCE  IN  LEVEL. 

229#  13#  IFIHPL(FP).LE.LNP)  GO  TO  5 

23##t  - - END  OF  OLD  LEVEL.  BEGIN  PROCESSING  NEH  LEVEL. 

2311  SKIP  * .F. 

232#  GO  TO  73 
2330C 

234#t  - - EVALUATE  PRECEEDINC. 

233#  133  HP  * HPL(FP) 

236#  I * 1 

237#  KETL  * LEVEL  (HP  - 1) 

238#  DO  14#  I « 2,  HP  - 1 

239#  IF (LEVEL (HP-B) .LT.KETL)  CO  TO  142 

24N  IF (B. EG. HP-1)  CO  TO  144 

241#  14#  CONTINUE 

2421  142  B * B - 1 

243#  144  SUHER  * # 

244#  SUH1T  * .F. 

243#  K<# 

246#  146  IF (LOP(HP-B) .EQ. 1)  SUHIT  * .T. 

247#  147  IF (LEVELOP-B)  .NE .KETL)  GO  TO  13# 

248#  SUHER  * SURER  t OUTCON(HP-B) 

249#  K * K ♦ 1 
25##  15#  B * B * l 


2511  IF(B.GT.I)  CO  TO  147 

2521  IFt.NOT.  EOT)  CO  TO  152 

2531  SUKER  * SUKER  ♦ OUTCOK (HP) 

2541  K * K ♦ 1 
2551*  • - EVALUATE  KETl. 

2561  152  IF(SUHIT)  CO  TO  155 

2571*  • - EVALUATING  FOR  'OR'  EXPRESSION. 

2581  IF (SUKER. CT.I)  GO  TO  165 

259#*  - - OUTCOK  IS  FALSE. 

26M  CO  TO  171 

26104  - - EVALUATING  FOR  'AND'  EXPRESSION. 

2621  155  lF(SUNER.EQ.K)  CO  TO  165 
2631*  - - OUTCOK  IS  FALSE. 

2641  CO  TO  17f 

265 l«  - - NARK  OUTCOK  TRUE. 

2661  165  OUTCOK  (HP)  * 1 
2671  IF (EOT)  CO  TO  175 
2601*  - - CHECK  FOR  EOT. 

2691  171  NAJF  » .F. 

27N  IF  (.NOT.  EOT)  GO  TO  5 
2711*  - - DESELECT  THIS  RECORD. 

2731  ISTAT  * 1 
2741  CO  TO  3fl 

276K 

2781*  - - SELECT  THIS  RECORD. 

2791  175  ISTAT  = 2 
2800  CO  TO  3M 

282#C 

28304  - - FAILED  LAST  TEST. 

28404  IF  THERE  IS  STILL  AN  'OR'  PROCESS  TO  BE  DONE.  PRESS  ON. 
2850  200  IFIHINF.EQ.2)  CO  TO  5 

28604  - - IF  THERE  IS  STILL  A 'TO*  PROCESS  IN  UORK.  PRESS  ON. 

2870  IF (HINF.EQ.3)  CO  TO  210 

28804  • * HAS  FAILED  AND  NO  CHANCE  TO  REDEEM  IT. 

28904  OUTCOK  STATS  0 (FALSE). 

29004  - - PRESS  ON  U1TH  PROCESSING. 

2910  CO  TO  5 

29204  - - CHECK  OUT  'TO'  FUNCTION. 

2930  210  I NCR  * .F. 

2940  L * KONPCH  (TAR2>  !•  TARGET.  1.  6) 

2950  IF(L.LT.O)  CO  TO  215 
29604  - - RANGE  IS  DECREASING. 

2970  IF(K.EO.-l)  CO  TO  220 

29804  • - TEST  VALUE  CAN'T  BE  WITHIN  RANGE.  OUTCOK  STATS  FALSE. 

2990  GO  TO  5 

30004  - - RANGE  IS  INCREASING. 

3010  215  I NCR  * .T. 

3020  IF(K.EO.I)  CO  TO  220 
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SUBROUTINE  HEADER 

1MKHEADER  LIST  HEAOER  SECTIONS  (ID*  INFO*  DR) /UPDATE  INFO  SEC. 

1I1DC 

ID2D  SUBROUTINE  HEADER 

ID3DC 

CHARACTER  CPUC«2(15).  CPUN«8(15>.  LANCC*1(10>.  LANCN*8(18). 
185ft  SIHCOD*l(2f)i  SINNAN*8l2f)i  CARDI458).  REC«42(18). 

184ft  FNAHEU.  MTES*8(3)i  CINFO*458,  CREC»98I5).  ANS* I, 

18781  DLANKS*43/'  '/»  0UT*48.  FQMU8/M1M  )*/. 

18884  HC0H1.  DCPU*2 

1898C 

1188  INTEGER  SECNO.  CONT.  CPTr  D1R(3)»  INF043)*  MTAS43I*  RNUH. 
11184  ISECi  INSTRi  I DATA?  SINTIT(28) 

U28C 

1138  REAL  CPUS (15) i CPUT(15).  LANCS (18) * SINFAC(2f)»  TININC 
1148C 

1158  LOGICAL  D1REUP*  INFOUPi  DATAUPi  MINFO*  CPUDi  LANCD. 

U48t  SIND*  DONE 

1178C 

1188  EQUIVALENCE  (CARD.  REC ( 1 ) ) * (CINFO.  CREC(l)) 

S198C 

1288  COHMN  /NISC/  DIREUP.  INFOUP.  DATAUP*  HINFO.  NSEL 
1218C 

1228  COHHON  /IDSEC/  FNAHE.  DATES.  LSIZE.  DIR.  INFO.  DATAS.  RNUH 
1238C 

1248  COHHON  /INSEC/  CPUC.  CPUN.  CPUS.  CPUT.  LANGC.  LANCN.  LANGS 
1258C 

1248  COHHON  /INFOS/  SIHCOD.  S INMAN » SIHFAC.  SINTXT 
1278C 

1288  SIND  * .F.S  DONE  s ,F. 

1298  18  PRINT.  "ENTER:  L (LIST).  U (UPDATE).  OR  E (END)?" 

1388  READ.  ANS 

1318  IFIANS.EQ.’EM  CO  TO  888 

1328  IF(ANS.EQ.'U')  GO  TO  988 

1338  lF(ANS.NE.’L’)  CO  TO  18 

1348*  - - HE  ARE  IN  LIST  NODE. 

1358  25  PRINT.  "ENTER:  I (ID).  C (CPU/LANC).  S (SIN  INFO).  ". 

134ft  "T  (SIN  TEIT).  E (END)." 

1378  READ.  ANS 

1388  IF(ANS.EQ.'E')  GO  TO  18 
1398  IF (ANS.E8. ' I * ) CALL  'DLIST 
1488  IF(ANS.EQ.'S')  GO  TO  85 

1418  IFtANS.EQ.’TM  GO  TO  148 

1428  lFlANS.NE.'C*)  GO  TO  25 

1438*  • - LIST  INFO  DATA  (CPU  AND  LANG). 

1448  PRINT  35 

1458  35  FORHAT  (1H8.  " -CPU  INFO LANGUAGE  INFO". 

14481  " /.  “CPU".  HI.  "BTTES/  TINE  LANG  LANGUAGE  ". 
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14711 

"COW"./.  "CODE  CPU  NAME  WORD  CONV  CODE 

NAME 

148ft 

"FACTOR" i //) 

1491 

DO  88  I * 1.  15 

15N 

CPUS  * .F.J  LAND  * .F. 

1511 

OUT  * BLANKS 

1521 

1F(CPUC(I).EQ.»  >)  CO  TO  58 

1531 

CPUO  * .T. 

1548 

ENCODE  (OUT*  48)  CPUC(I).  CPUN(I).  CPUS (lit  CPUTCI) 

1558  48 

FORMAT  (lli  A2t  2li  A8>  F4.1,  F4.2) 

1548  58 

1FII.CT.18)  CO  TO  48 

1578 

IF(LANCC(l).E8.’  »)  CO  TO  48 

1588 

LANCO  * .T. 

1598 

ENCODE  (OUTi  55)  LANCCdli  LANCN(I)i  LANCS ( 1 ) 

1688  55 

FORMAT  (T31i  Alt  2Xi  A8i  F4.2) 

1418  48 

IFtCPUD  .OR.  LANCD)  CO  TO  45 

1428*  - - 

SKIP  TO  END  OF  LOOP. 

1438 

CO  TO  88 

1448*  * - 

PRINT  'OUT*. 

1458  45 

NCH  * 48 

1448 

IF4.NOT.  LANCD)  NCH  • 24 

1478 

ENCODE  (FORHlr  78)  NCH 

1488  78 

FORMAT  (T4t  12) 

1498 

PRINT  FORHI.  OUT 

1788  88 

CONTINUE 

1718 

CO  TO  25 

1728C 

1738*  - - 

LIST  SIMULATOR  INFO. 

1748  85 

PRINT  98 

1758  98 

FORMAT  (lHOi  " SIN  SIMULATOR  HISS  CHPLIT  INFO  ' 

S 

174ft 

"TEIT  INSTRUCTIONS  DATA"*  71.  "TIMINC". 

/. 

177ft 

" CODE  NAME  CODE  FACTOR  SECTOR  NO 

". 

17888 

"(IN  BITES)  (IN  SITES)  (NSEC/SEC)".  II) 

1798 

J * 8 

1888 

SECNO  * INFO(l)  * 1 

1818  95 

CALL  RSEC  (CARD.  SECNO.  CONT.  4988) 

1828 

DO  128  I * 1.  18 

1838 

J * J ♦ 1 

1848 

IF (SIMCOO(J) .EQ. f »)  CO  TO  128 

1858 

DECODE  (REC(I).  IN)  NCOO.  INSTR.  IDATA.  TIMINC 

1848  188 

FORMAT  (T18.  Al.  TI9.  217.  F8.2) 

1878 

PRINT  118.  SINCOB(J).  SINNAH(J).  NCOO.  SINFAC(J).  SIMTIT(J) 

188ft 

INSTR.  IDATA.  TIMINC 

1898  118 

FORMAT  (31.  Al.  41.  A8.  51.  Al.  F8.1.  19.  11.  2(51. 

18). 

198ft 

41.  F8.2) 

1918  128 

CONTINUE 

1928 

1F(J.EQ.28I  CO  TO  138 

1938 

SECNO  * CONT 

1948 

CO  TO  95 

19S8C 

1948  138 

PRINT.  "DO  TOU  UANT  TO  LIST  INFORMATION  TEIT  (I  OR  Nl?" 

1978 

READ.  ANS 

1988 

lF(ANS.EO.'N')  CO  TO  18 

13f 


199#*  * - UMTS  TO  LIST  INFO  TUT. 

2IM  140  POINT » “ENTER  THE  1 CHARACTER  SIN  CODE." 

2511  142  READ.  ANS 

2121  10  ISO  I * 1.  21 

2131  1F(ANS.EQ.$INC0D(I»  CO  TO  171 

2044  ISO  CONTINUE 

213#  PRINT  144,  ANS 

2141  14#  FORNAT  (11.  -THERE  IS  NO  TEXT  FOR  SIN  CORE  ■»  All 
2171  CO  TO  13# 

210#  17#  SECNO  * SIHTXTU) 

2#9#  IF  (SIND)  CO  TO  4#4 
21##  IF(SECNO.CT.f)  CO  TO  19# 

211#  PRINT  14#.  ANS 
212#  CO  TO  13# 

2130*  - • READ  INFO  TUT  AND  PRINT  IT  OUT. 

214#  IS#  CALL  RSEC  (CINFOt  SECNO.  CONT.  19##) 

213#  DO  2M  K * 1.  5 
214#  PRINT  195.  CREC(K) 

217#  193  FORNAT  (IX.  AM) 

21M  2#f  CONTINUE 
219#  IF(CONT.EO.f)  CO  TO  131 

22§#  SECNO  = CONT 
221#  CO  TO  19# 

2225C 

223#*  • - ADD/CHANCE/DELUE  INFO  ENTRIES. 

224#  3#§  PRINT.  "DO  YOU  KANT  TO  ADD  A (ADD).  C (CHANCE).  D (DELETE). 
22504  -L  (LIST).  OR  E (END)?" 

2241  READ.  ANS 
227#  IF(ANS.EQ.'E')  CO  TO  8M 

228#  lFfANS.EO.’D’)  CO  TO  418 

229#  IFIANS.EQ.'AM  CO  TO  31# 

23M  lFlANS.EO.'C’)  CO  TO  S«# 

231#  1F(ANS.EQ.'LM  CO  TO  25 

232#  CO  TO  3(# 

233#*  - - ADD  NEK  ENTRIES. 

234#  31#  PRINT.  "DO  YOU  WANT  TO  ADD  TO  C (CPU).  L (LANGUAGE).  OR  n. 
23504  -S  (SIMULA TOR)  INFO?" 

234#  READ.  ANS 

237#  IFtANS.EQ.'CM  CO  TO  32# 

238#  IF(ANS.EQ.'LM  CO  TO  34# 

239#  lF(ANS.EO.'S’)  CO  TO  3M 

24##  CO  TO  3M 

241#C 

242#*  - - ADO  TO  CPU  INFO. 

243#*  FINO  FIRST  BLANK  CPU  SLOT. 

244#  32#  DO  33#  1 * 1.  13 

245#  1F(CPUC(I).E0.'  *)  CO  TO  333 

244#  33#  CONTINUE 

247#  PRINT.  -NO  NORE  ROON  IN  CPU  INFO  TABLE." 

24M  CO  TO  3M 

249#  333  PRINT.  "ENTER  2 CHARACTER  CPU  CODE." 

23##  READ.  CPUCII) 
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2511  PRUT i “CUTER  8 CHARACTER  CPU  NAME." 

2521  RE Alt  CPUH(I) 

2531  PRINT*  "ENTER  MAKER  OF  ITTES/UORD  IN  I.I  FORMAT. * 

2541  REAS*  CPUS(l) 

2551  PRINT • "ENTER  THE  THE  CONVERSION  FACTOR  IN  X.IX  FORMAT." 

2541  REAR.  CPUTII) 

2571  INFOUP  * ,T. 

2581  CO  TO  414 

2594C 

24f#»  - - ADI  TO  IANCUACE  INFO. 

2411*  FINN  FIRST  RANK  LANCUACE  SLOT. 

2421  341  DO  351  I * 1*  If 

2431  IFILANCCID.EO.'  '>  CO  TO  34# 

2441  354  CONTINUE 

2454  PRINT.  "NO  MORE  ROOM  IN  LANCUACE  INFO  TARE." 

2444  CO  TO  344 

2474  344  PRINT.  "ENTER  I CHARACTER  LANCUACE  CODE." 

2484  READ.  LANCC(I) 

2474  PRINT.  "ENTER  8 CHARACTER  LANCUACE  NAME." 

2744  READ.  LANCN(I) 

2714  PRINT.  "ENTER  CONVERSION  FACTOR  IN  IX. XI  FORMAT." 

2724  READ.  LANCS  II) 

2734  INFOUP  * .T. 

2744  CO  TO  414 

2754C 

2744  384  PRINT.  "DO  TOU  WANT  TO  CREATE  A HEN  SIMULATOR  ENTRT  'N*  ". 
27748  "OR  JUST  ADD" 

2784  PRINT,  "TEXT  TO  AN  EIIST1NC  ENTRT  »T»?" 

2794  READ.  AMS 

2844  IF(ANS.EO.'N')  CO  TO  385 

2814  lFIANS.EO.'TM  CO  TO  442 

2824  CO  TO  384 

2834*  • - ADD  TO  SIMULATOR  INFO. 

2844*  FIND  FIRST  BLANK  SIMULATOR  SLOT. 

2854  385  DO  394  I * 1.  24 

2844  IFISIHCOQUl.EO.'  M GO  TO  444 

2874  394  CONTINUE 

2884  PRINT.  “NO  MORE  ROOM  IN  SIMULATOR  INFO  TABLE." 

2894  CO  TO  344 

2944  444  PRINT.  "ENTER  1 CHARACTER  SIMULATOR  CODE." 

2914  REAOf  SINCOD(I) 

2924  PRINT.  "ENTER  8 CHARACTER  SIMULATOR  NAME." 

2934  READ.  SIHNAH(I) 

2944  PRINT.  "ENTER  COMPLEXITY  FACTOR  IN  XX.X  FORMAT." 

2954  REAS.  SIHFACII) 

2944  INF0I3)  * INF0I3)  * 1 

2974  CO  TO  444 

2984  442  PRINT.  "ENTER  1 CHARACTER  SIN  CODE  FOR  ENTRT  TOU  KANT  TO  ". 
29948  "ADD  TEXT  TO." 

3444  SIND  * .T.l  CO  TO  142 

3414  444  SIMD  * .F. 

3424  IFISECN0.EQ.4)  CO  TO  444 
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3131*  • - THERE  ALREADY  IS  A TEXT  SECTION  FOR  THIS  ENTRY. 

3*4*  PRINT • "THIS  SIN  CODE  ALREADY  HAS  AN  INFO  TEXT  SECTION  "• 

315ft  "ESTABLISHED. " 

3*4*  PRINT.  "DO  YOU  UANT  TO  ADD  NORE  TEXT  (Y  OR  HI?" 

3171  READ.  ANS 

3f8l  IF(ANS.EO.'N')  GO  TO  311 

3*9*«  - - FIND  END  OF  EXISTING  TEXT. 

31N  4142  CALL  RSEC  ICINFO.  SECNO.  CONT.  I9f*> 

3111  IF(CONT.EQJ)  GO  TO  4143 

3121  SECNO  * CONT 

3131  CO  TO  4*42 

3141  4*43  DO  4*5  J * 1.  5 

3151  JI  * 4 * J 

314*  DO  4*44  K * 1.  8* 

317*  L * K 

318*  CALL  CONCAT  INCOD.  1.  CRECIJI).  L.  1) 

319*  IF (HCOD.NE. ’ ')  CO  TO  4*52 

32**  4*44  CONTINUE 
321*  4*5  CONTINUE 

322**  - - IF  JI  EQ  5.  THIS  SECTOR  IS  FULL. 

323*  4*52  IFIJI.E0.5)  SIND  * .T. 

324*  CO  TO  4*9 

325*4  • - OBTAIN  NEXT  SECTOR  NUMBER. 

324*  4*4  SECNO  • DATASI3) 

327*  SINTXT(I)  * SECNO 
328*  CONT  * SECNO 
329*  DATASI3)  * DATASI3)  4 1 
33**  JI  * * 

331*  IF (DATAS42) .CT . (DATAS43)  - DATAS(l)))  GO  TO  4*9 
332*  4*7  PRINT  418.  DATASI3) 

333*  4*8  FORMAT  (IX.  "HAVE  RUN  OUT  OF  ROOM  FOR  TEXT  AT  SECTOR". 
334*4  " NUMBER  ".  14) 

335*  GO  TO  3** 

3341  4*9  PRINT.  "ENTER  YOUR  TEXT.  ONE  LINE  AT  A TINE  WITH  A "• 

337*4  "MAXIMUM  OF  8*  CHARACTERS" 

338*  PRINT.  "PER  LINE.  ENTER  ’122'  TO  SIGNAL  'NO  NORE  TEXT  ". 
339*4  "TO  ENTER'." 

34**  IF (SIND)  GO  TO  4112 
341*  IF ( JI  .EQ.  1 ) GO  TO  4*92 
342*  JI  s JI  4 1 
343*  4*92  DO  4*93  L * JI.  5 
344*  CREC(L)  * • ' 

345*  4*93  CONTINUE 

344*  41*  READ  411.  CRECIJI) 

347*  411  FORMAT  (AM) 

348*  iFICREC(JI).EQ.'ZZZ')  GO  TO  412 
349*  JI  * JI  4 | 

35**  !F(JI.LT.4I  CO  TO  41* 

351*  IF (CONT. EQ.*)  CO  TO  4112 
352*  SECNO  * CONT 
353*  4112  CONT  * DATASI3) 

354*  SIND  ’ .F. 
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355#  DATAS(3)  * DATA$(3)  ♦ 1 

3541  IF (DATAS (2) .LE. (DATA$(3)  - DATAS(l)))  CONT  • I 

357#  CO  TO  413 

358#  412  IFIJI.EO.l)  CO  TO  414 

359#»  - - HIRE  OUT  »Z2Z». 

34##  CREC(JI)  « * » 

341#  IF (C0NT.E8.il  CO  TO  4122 
3421  SECNO  « CONT 

343#  CONT  * • 

3441  4122  DONE  * ,T, 

345#  413  CALL  MSEC  (CINFOt  SECNO.  CONT) 

344#  INFOUP  « .T. 

3471  IF(DONE)  CO  TO  414 

3481  IF(CONT.EQ.I)  CO  TO  417 
349#  JI  > 1 

371#  CO  TO  4#92 

371#  414  PRINT.  "ADD  FUNCTION  COMPLETE." 

372#  DONE  * .F. 

373#  CO  TO  3## 

374IC 

373#*  - - DELETE  INFO. 

374#  418  PRINT.  "DO  TOU  RANT  TO  DELETE  C (CPU).  L (LANCUACE).  OR  ", 

377M  "S  (SIMULATOR)  INFO?" 

378#  READ*  ANS 

379#  IF(AN$.E8.'CM  CO  TO  42# 

38##  IF (AMS.EQ. *Lf ) CO  TO  44# 

381#  IF(ANS.EO.’S')  CO  TO  44# 

382#  CO  TO  3## 

383#*  - • DELETE  CPU  INFO. 

384#  42#  PRINT.  "ENTER  THE  2 CHARACTER  CPU  CODE  OF  ENTRT  TO  BE  DELETED." 

385#  READ.  OCPU 

384#  DO  43#  I * 1.  15 

387#  IF(CPUCd)  .NE.DCPU)  CO  TO  43# 

388#  CPUC(I)  * • > 

389#  CO  TO  48# 

39f#  43#  CONTINUE 

391#  PRINT.  "NO  ENTRT  FOR  CPU  CODE  ",  OCPU 
392#  CO  TO  3## 

393#C 

394#*  - - DELETE  LANCUACE  INFO. 

395#  44#  PRINT,  "ENTER  1 CHARACTER  LANCUACE  CODE  OF  ENTRT  TO  BE  DELETED." 
394#  READ,  HCOO 

397#  DO  458  I * 1,  1# 

398#  IF(LAMCCd)  .NE.MCOD)  CO  TO  45# 

399#  LANCC(I)  « * » 

4##f  CO  TO  48# 

4#1#  45#  CONTINUE 

4*2#  PRINT.  "NO  ENTRT  FOR  LANCUACE  CODE  ",  HCOD 
4#3#  CO  TO  3## 

4#4#C 

4#5#»  - • DELETE  SIMULATOR  ENTRT. 

4«4#  44#  PRINT,  "ENTER  THE  1 CHARACTER  SIM  CODE  OF  ENTRT  TO  8E  DELETED." 
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READ,  HCOD 

4080  DO  470  1 * 1,  20 
4090  lF(SIHCOOU).NE.NCQD)  CO  TO  471 

41N  SIHCOOdl  * • > 

4110  CO  TO  4M 
4121  471  CONTIMJC 

4131  PRINT.  HO  ENTRY  FOR  SIMULATOR  CODE  ",  HCOD 
4140  CO  TO  3## 

4130  4M  PRINT.  "DELETE  FUNCTIW  COMPLETE." 

4140  INFOUP  » .T. 

4171  CO  TO  3M 
4180C 

4190*  - - CHANCE  INFO  DATA. 

4210  SOI  PRINT,  "DO  TOO  WANT  TO  CHANCE  C (CPU).  L (IANCUACE),  OR  ", 
42114  "S  (SIMULATOR)  INFO?" 

4220  REAS,  AMS 

4230  IF  (AMS. Eft.  'CM  CO  TO  S10 

4240  1F(ANS.E0.’L,I  CO  TO  580 

4230  IF(ANS.EQ.'S’)  CO  TO  640 

4240  CO  TO  300 

4270#  - - CHANCE  CPU  INFO. 

4280  310  PRINT,  "ENTER  2 CHARACTER  CPU  CODE  OF  ENTRT  TO  BE  CHANCED." 

4290  READ,  DCPU 

4300  DO  520  I * 1,  IS 

4310  IF(CPUCd).EQ.DCPU)  CO  TO  330 

4320  520  CONTINUE 

4330  PRINT,  "NO  ENTRT  FOR  CPU  CODE  ",  DCPU 
4340  CO  TO  300 

4330  530  PRINT,  "DO  YOU  HANT  TO  CHANCE  CPU  CODE  ’1’,  CPU  NAME  *2',  ", 
43404  "DITES/HORD  »3»,  OR  TIME  C0NV»4»?" 

4370  READ,  NUMB 

4380  IF (NUNB.LT.l  .OR.  NUHB.GT.4)  CO  TO  530 
4390  CO  TO  (540,  550,  540,  5^5) , NUMB 
4400  540  PRINT,  "ENTER  NEU  CPU  CODE." 

4410  READ,  CPUCII) 

4420  CO  TO  570 

4430  550  PRINT,  "ENTER  NEU  CPU  NAME  (8  CHARACTERS  MAX)." 

4440  READ,  CPUNII) 

4450  CO  TO  570 

4440  540  PRINT,  "ENTER  NEU  BTTES/UORD  VALUE  IN  I.X  FORMAT." 

4470  READ,  CPUS(I) 

4480  CO  TO  570 

4490  545  PRINT,  "ENTER  NEU  TIME  CONVERSION  FACTOR  IN  X.XX  FORMAT." 
4500  READ,  CPUTII) 

4510  570  PRINT,  "CHANCE  COMPLETE.” 

4520  INFOUP  > .T. 

4330  CO  TO  300 

4340C 

4550#  • - CHANCE  LANCUACE  INFO. 

4340  580  PRINT,  "ENTER  THE  1 CHARACTER  LANCUACE  CODE  FOR  ENTRT  TO  BE”, 


! 


. ".V I 
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4591  DO  591  I * li  II 

44M  IF(LANCC(I) .EO.HCOD)  CO  TO  595 

4411  591  CONTINUE 

4421  PRINT.  "NO  ENTRT  FOR  LANCUACE  CODE  u.  HCOD 
4431  CO  TO  3M 

4441  595  PRINT.  "DO  YOU  WANT  TO  CHANCE  LANCUACE  CODE  M».  LANC  NAME  '2'". 
44S#t  - OR  CflNV  FACTOR  »3'?" 

4441  REAI.  NUNI 

4471  IF (NUNI. LT. I .OR.  NUNB.CT.3)  CO  TO  581 

44M  CO  TO  <4M.  411.  421).  NUNB 
4491  4M  PRINT.  "ENTER  NEK  LANCUACE  CODE." 

47N  READ.  LANCC(I) 

4711  CO  TO  571 

4721  411  PRINT.  "ENTER  NEU  LANCUACE  NAHE  (8  CHARACTERS  HAD." 

4731  READ.  LANCN(I) 

4741  CO  TO  571 

4751  421  PRINT.  "ENTER  NEU  CONVERSION  FACTOR  IN  XI. H FORMAT . “ 

4741  READ.  LANCS! I) 

4771  CO  TO  571 

478#C 

4791  441  PRINT.  "ENTER  THE  1 CHARACTER  SIMULATOR  CODE  OF  ENTRT  TO  BE 
48111  "CHANCED." 

4811  READ.  HCOD 

4821  DO  451  I * 1.  21 

4831  IF(SINCOD(l). EO.HCOD)  CO  TO  441 
4841  451  CONTINUE 

4851  452  PRINT.  "NO  ENTRT  FOR  SIHCOO  ".  HCOD 
4841  CO  TO  3ff 

4871  441  PRINT.  "DO  TOU  RANT  TO  CHANCE  SIM  CODE  M’»  SIM  NAME  '2*.  ". 
48811  "CIPLIT  FACT  '3'.  OR  TEXT  '4*?" 

4891  READ.  NUMB 

49M  IF  (NUMB. LT.  I .OR.  NU1B.CT.4)  CO  TO  441 

4911  CO  TO  (471.  481.  491.  7M).  NUMB 
4921  471  PRINT.  "ENTER  NEU  SIMULATOR  CODE." 

4931  READ.  SIMCOD(I) 

4941  CO  TO  571 

4951  481  PRINT.  "ENTER  NEU  SIMULATOR  NAHE." 

4941  READ.  SIHNAN(I) 

49/1  CO  TO  571 

4981  491  PRINT.  "ENTER  NEU  CONPLEXITT  FACTOR  IN  XX  X FORMAT." 

4991  READ.  SIHFAC(I) 

SMI  CO  TO  571 

5111  7M  IF(SINTXTd).CT.I)  CO  TO  714 

5121  PRINT  712.  HCOD 

5131  712  FORMAT  (IX.  "THERE  IS  NO  TEXT  FOR  SIN  CODE  ".  Al. 

51411  ".  USE  ADD  FUNCTION  TO  INSERT  TEXT.") 

5151  CO  TO  311 

5141  714  PRINT.  "LINES  ARE  UMBERED  SEQUENTIALLY  STARTING  UITH  THE  ". 
51714  "FIRST  LINE  OF  TEXT. 

5181  PRINT.  "1.  2.  3.  4.  itc." 

5191  LSEC  « I 

51M  7M  PRINT.  "ENTER  THE  NUMBER  OF  THE  LINE  OF  TEXT  TO  BE  CHANCED.” 
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Sill  711  READ?  NUMB 
5121*  - - COMPUTE  SECTOR. 

5131  IR  * NOD (NUMB r S) 

5141  I SEC  : NUMB  / 5 

StSI  IFdR.CT.il  I SEC  * I SEC  * 1 

5141  IF ( IR.EQ.f ) IR  * 5 

5171*  - - IF  IN  SAME  SECTOR  AS  LAST  CHANCE.  SKIP  URITE/READ. 

5181  lF(ISEC.EQ.LSEC)  CO  TO  741 

5191*  - - IF  LSEC  N£  I WRITE  THE  CURRENT  SECTOR  BACK  TO  THE  FILE. 
5211  IF(LSEC.EQ.f)  CO  TO  721 

5211*  - - WRITE  SECTOR  BACK  TO  FILE. 

5221  CALL  WSEC  (CINFO.  SECNO.  CONTI 

5231  INFOUP  = ,T. 

5241  1F(ISEC.CT.LSEC)C0  TO  721 

5251*  - • READ  FIRST  SECTOR. 

5241  721  SECNO  = SIHTXTd) 

5271  LSEC  - I 
5281  CO  TO  722 
5291*  - - READ  NETT  SECTOR. 

53H  721  SECNO  = CONT 

5311  722  CALL  RSEC  (CINFO.  SECNO.  CONT.  4981) 

5321  LSEC  * LSEC  ♦ 1 

5331  IF (LSEC.EQ. ISEC)  CO  TO  741 

5341  IF (CONT.EQ.il  CO  TO  725 

5351  CO  TO  721 

5340  725  PRINT  731.  LSEC  * 5 

5371  731  FORMAT  (II.  "THERE  ARE  ONLY  ".  12.  " LINES  OF  TEXT  FOR  ", 
53814  "THIS  SIM  CODE.") 

5391  CO  10  718 
54H  741  PRINT  751,  NUMB 

5411  751  FORMAT  (II.  "ENTER  THE  NEW  TEXT  TO  REPLACE  LINE  ",  12. 
54214  " (A  MAXIMUM  OF  81  CHARACTERS).") 

5431  READ  411,  CRECIIR) 

5441  PRINT,  "DO  TOO  WANT  TO  CHANGE  ANOTHER  LINE  (T  OR  Nl?" 

5451  READ,  ANS 

5441  IFIANS.EQ.’T')  CO  TO  718 

5471*  - - WRITE  SECTOR  BACK  TO  FILE. 

5481  CALL  WSEC  (CINFO,  SECNO,  CONT) 

5491  CO  TO  571 

55NC 

5511*  - - WRITE  INFO  SECTIONS  BACX  TO  DATA  BASE. 

5521  811  IFI.NOT.  INFOUP)  RETURN 
5531  CALL  RNHEAO  (2) 

5541  INFOUP  * .T. 

5551  RETURN 

5541  9M  PRINT,  "EOF  ON  DB  READ  DURING  HEADER  LIST/UPDATE." 

5571  RETURN 

5581  END 
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SUBROUTINE  IDLIST 


IMICIDLIST  LIST  10  SECTION, 
lit!  SUBROUTINE  IDLIST 

1B2IC 

1131*  • - ROUTINE  TO  PERFORM  FORMATED  DUMP  OF  DATA  BASE  ID  SECTION. 

INK 

USD  CHARACTER  FNAME*4»  DATES*8(3) 

INK 

1171  INTEGER  DIR(3),  1NF0I3) > DATAS(3)i  SECNOt  RNUM 

llgfC 

INI  COMMON  / IDSEC/  FRAME i DATES,  LSIZE,  DIR,  INFO,  OATAS,  RNUM 
I llfC 

1 12fC 

1131  UNITE  (14,  1M) 

1141  IN  FORMAT  (1M,  87,  "SIMSIZ  DATA  BASE  IDENTIFICATION  SECTION",//) 

USD  UNITE  (14,  111)  FNAHE 

1141  111  FORMAT  (41,  "FILE  NAME:  ",  A4,  //) 

1171  UNITE  (14,  121)  DATES(l),  DATES (2),  DATES (3) 

1181  121  FORMAT  (41,  "DATES  OF  LAST  CHANCES  TO:",  /,  87, 

11914  "DIRECTORY  - - ",  A8,  /,  87, 

12IM  "INFORMATION  - ",  A8,  /,  87, 

121M  "DATA  A8,  II) 

1221  URITE  (14,  131)  LSIZE,  RNUM 

1231  131  FORMAT  (47,  "FILE  SIZE:",  14,  " LLINKS", 

12414  II,  47,  "NUMBER  OF  DATA  RECORDS:",  IS,//) 

1251  URITE  (14,  141)  (DIR(I),  I * 1,  3),  (INFO(I),  I * 1,  3), 

12414  (DATAS(I),  I * 1,  3) 

1271  141  FORMAT  (147,  "STARTING  SECTORS",  /,  177, 

12814  "SECTOR  ALLOCATED",  /,  47,  "DIRECTORY  - - ", 

12914  14,  47,  14,  57,  14,  " CURRENT  ENTRIES",  //,  47, 

13114  "INFORMATION  • ",  14,  41,  14,  57,  14, 

13114  " RECORDS  IN  USE", 

13214  //,  47,  "DATA  ",  14,  47,  14,  57,  14, 

13314  " NE7T  AVAILABLE") 
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SUBROUTINE  IOSET 


lfflCRNHEAD  SUB  TO  READ  AND  MITE  ID*  INFO.  AND  DR  SECTIONS, 
lit!  SUBROUTINE  RUHEAD(HOOE) 

If  2«C 

H3fC  IF  NODE  * 1 READS  DATA  BASE  ANO  LOADS  COHNONS 
If 40C  IDSEC*  INSECi  INFOS*  AND  DRSEC. 

HSBC  IF  NODE  • 2 PUTS  CONTENTS  OF  COHNONS  IDSEC.  INSEC. 

MIC  INFOS.  AND  DRSEC  INTO  DATA  BASE. 

II7K 

1*81  CHARACTER  FNAHEU.  DATES*8(3).  CARD*45f.  REC»3I(15). 

Wit  T0DAY*8»  STSCOD+2 ( 4#) . STSNAH«12(4f). 

HIM  IREC»I8(2S).  FREC*42(1«).  CPUC42U5).  CPUN*8(1S) 

HIM  LANCCtl(lB).  LANCN*8(lf)t  SINC0D*1(2I)> 

112*1,  SINNAH*8(28) 

U3K 

1141  INTEGER  SECNO.  LSIZE.  DIR<3>*  INF013).  DATASI3). 

U5K  CONT.  DSSEC (4f> * DESEC(4f) . DNSECI4I). 

mn  MBEL(4f ) * RNUN.  SIHTXT(Zf) 

I17IC 

1181  REAL  CPUS!  15).  CPUTU5).  LANGS  111).  SlNFAC(2f) 

U9fC 

12H  LOGICAL  DIREUP.  INFOUP.  DATAUP.  UINFO 

121fC 

1221  EQUIVALENCE  (CARD.  REC(l).  IREC(l).  FREC(l)) 

123K 

1241  COHNON  /RISC/  OIREUF.  INFOUP.  DATAUP.  UINFO.  NSEL 
125*C 

1241  CONHON  /IDSEC/  FNAHE.  DATES.  LSIZE.  DIR.  INFO.  DATAS.  RNUN 
127IC 

1281  COHNON  /INSEC/  CPUC.  CPUN.  CPUS.  CPUT.  LANCC.  LANCN.  LANGS 
12?*C 

13H  COHNON  /INFOS/  SIHCOD.  SIHNAH.  SIHFAC.  SIHTXT 
131fC 

1321  COHNON  /DRSEC/  S1SCOD.  STSNAN.  DSSEC.  DESEC.  DNSEC.  NOEL 
I33fC 

I3S0C 

13414  - • CHECK  NODE  TO  SEE  IF  HE  ARE  READING  OR  WRITING  DATA  BASE. 
1371  IFIN0DE.EQ.2)  GO  TO  2H 
138*4  - - HE  ARE  IN  READ  NODE. 

<3W  RESET  UPDATE  FLAGS. 

I4N  DIREUP  * .F. 

141*  INFOUP  * .F. 

1421  DATAUP  * .F. 

1431  CALL  RSEC  (CARD.  1.  CONT.  (9MI 
144*  DECODE  (CARD.  SI)  FNAHE.  DATES ( 1 ) . DATES (2) * DATESI3). 

l4Sn  LSIZE.  (DIR(I).  INFO(I).  DATAS(I) . I * 1.31.  RNUN 

1441  5*  FORMAT  <A4.  3A8.  1114) 


147*  J * I 

1481  K * IS 

1491  SECXO  * DIR  ID 

1511  IF(DIR(3).LT.15)  K * D1R(3) 

1511  41  CALL  RSEC  (CARD.  SECNO.  CONT.  49M) 

1521  DO  lli  1 = It  K 

1531  J * J ♦ l 

1541  DECODE  (RECd).  711  SYSCOD(J).  STSNAN(J) • DSSEC(J). 

155K  DESEC  (J)  • DNSEC(J)  t NDELIJ) 

1541  71  FORMAT  <A2>  A12>  214.  213.  2!) 

1571  IN  CONTINUE 

1581  1F(DIR(3).EQ.J)  CO  TO  111 

159f  SECNO  * COMT 

14N  K * DIR  (3)  - J 

1411  1F1K.CT.15I  K * 15 

142f  CO  TO  41 

I43K 

1441*  - - READ  INFO  SECTION. 

1451  Uf  SECNO  * INFOU) 

1441  CALL  RSEC  (CARD.  SECNO.  CONT.  *9M) 

1471  J * I 

1481  DO  141  I < 1.  25 

1491  1F1I.CT.15)  GO  TO  125 

17N  DECODE  (IRECd).  121)  CPUCd).  CPUNd).  CPUSd).  CPUTd) 
1711  121  FORMAT  (A2.  A8.  F3.1.  F4.2) 

1721  CO  TO  141 

1731  125  J * J + 1 

174#  DECODE  (IRECd).  131)  LANCC(J).  LANGN(J).  LANCS(J) 

175#  13f  FORMAT  (Al.  A8.  FS.2) 

1741  141  CONTINUE 

1771  SECNO  * CONT 

1781  J * • 

1791  145  CALL  RSEC  (CARD.  SECNO.  CONT.  *9N> 

1811  DO  14f  I * 1.  If 

1810  J * J ♦ 1 

1821  DECODE  (FREC(I).  151)  SIHCOD(J).  SINNAM(J).  SINFAC(J). 
I83K  SINTXT(J) 

1841  1S0  FORMAT  (Al.  A8.  Til.  F4.1.  14) 

1851  140  CONTINUE 

1848*  - - CHECK  TO  SEE  IF  ALL  21  RECORDS  HAVE  SEEN  LOADED. 

1871  IF (J.EQ.20)  CO  TO  17* 

188#  SECNO  * CONT 

1891  CO  TO  145 

19N  171  RETURN 

I910C 

1930C 

1941*  - - WRITE  TO  DATA  DASE. 

1951*  UPDATE  DATES  IN  ID  SECTION  AS  NECESSARY. 

1941  2N  CALL  DATIH  (TODAY.  TINE) 

1971  IF (DIREUP)  DATES(l)  « TODAY 

198#  IF(INFOUP)  DATES (2)  > TODAY 
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199# 

IF(DATAUP)  DATES (3)  « TOOAT 

2«#« 

ICNT  * 2 

211# 

ENCODE  (CARD.  5#)  FNANEt  DATES! 1 ) • 

DATES (2) t DATES (3) 

202ft 

LSIZE.  ( DIR ( I ) t INFO ( I ) . DATAS ( 1 ) t I 

* It  3)t  RNUN 

213# 

CALL  NSEC  (CARD.  It  2) 

2#4# 

J * # 

2#Sf 

K * 15 

2#4f 

SECNO  * DIR ( 1 ) 

217# 

IF (DIR (3) .LT.I5)  K * D1R(3) 

2181  215  CAU  RSCC  (CARD.  SECNO.  CONI.  «9f<) 

2191  DO  21#  I * It  K 
21N  J:JM 

2111  ENCODE  (REC(I)i  71)  STSCOD(J).  STSNAN(J).  DSSECIJI. 

212K  DESEC  (Jit  DNSEC(J).  NDEL(J) 

2131  211  CONTINUE 

2141  1CNT  * ICNT  4 1 

215#  CONT  * ICNT 

214#  CALL  IISEC  (CARD*  SECNO*  CONT) 

2171  IF(DIR(3).E0.J)  CO  TO  22# 

218#  SECNO  = CONT 

219#  K * DIR (3)  - J 

221#  IF(K.GT.IS)  K « 15 

221#  CO  TO  215 
222IC 

223#*  - - WRITE  INFO  SECTION. 

2241  22#  J:| 

225#  DO  24#  I * It  25 
224#  IFII.CT.15>  CO  70  23# 

227#  ENCODE  <IREC(I)*12#)  CPUCIDt  CPUN(I) * CPUS ( I) * CPUT(I) 
228#  CO  TO  24# 

229#  23#  J * J ♦ 1 

23##  ENCODE  (IREC(I)t  138)  LANCCU)t  LANCN(J)*  LANCS  (J) 

231#  24#  CONTINUE 
232#  SECNO  * INFO(l) 

233#  CONT  * SECNO  4 1 

234#  CALL  USEC  (CARD*  SECNO*  CONT) 

235#  J * f 

234#*  • - READ  OLD  SIN  INFO  SECTOR. 

237#  245  SECNO  • CONT 

238#  CALL  RSEC  (CARD.  SECNO.  CONT.  I9M) 

239#  DO  25#  I = 1.  1# 

24##  J * J ♦ 1 

241#  ENCODE  (FREC(I).  IS#)  SINCOD(J).  SINNANU).  SINFAC(J). 

24214  SINTIT(J) 

243#  25#  CONTINUE 

244#  CONT  « SECNO  4 1 

245#  CALL  NSEC  (CARD.  SECNO.  CONT) 

244#*  - - CHECK  TO  SEE  IF  ALL  HAS  SEEN  MITTEN. 

247#  IF4J.EQ.2f)  RETURN 
248#  CO  TO  245 
249#C 

25##  9##  PRINT.  "EOF  ON  RHHEAD  READ.  TERMINATING." 
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2511  STOP 

2521  END 

2531  SUBROUTINE  RSEC  (DATA.  SECNOi  C0NT>  •) 

254#C  - • READS  A 76  UORD  RECORD  FROM  THE  DATA  BASE. 

2551  INTEGER  SECNOi  CONT 

2541  CHARACTER  REC0RDM54.  DATA*450 
2571  READ  (ll'SECNO.  E«-2Mi  ERR  Off)  RECORD 

255#  DECODE  (RECORD t If#)  DATA*  CONT 
259#  If#  FORMAT  (A45fi  14) 

2401  RETURN 

241#  20#  RETURN  I 

2420  30#  WRITE  (#4.  35#)  SECNO 

2430  350  FORMAT  (IX.  "I/O  ERROR  WHILE  READING  SECTOR  NUMBER* i 
24404  15.  /,  1I>  "PROCESSING  TERMINATED.") 

2450  STOP 
244#  END 

2470  SUBROUTINE  HSEC  (DATA.  SECNOi  CONT) 

2480C  - • WRITES  A 74  WORO  RECORD  TO  THE  DATA  8ASE  FILE. 

2490  INTEGER  SECNOi  CONT 

2700  CHARACTER  REC0R0M54.  0ATAM5# 

2710  ENCODE  (RECORDi  100)  DATAi  CONT 
2720  100  FORMAT  (A450i  14) 

2730  WRITE  (10'SECNOi  ERR=300)  RECORD 

274#  RETURN 

275#  30#  WRITE  (04i  350)  SECNO 

274#  35#  FORMAT  (Hi  "I/O  ERROR  WHILE  WRITING  TO  SECTOR  NUMBER" 
27704  15.  /i  lit  "PROCESSING  TERMINATED.") 

2780  STOP 

2790  END 
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SUMOUTINE  L1STR 


IHICLISTR  LIST  RECORDS. 

111!  SUBROUTINE  LISTR  (FC) 

1DZ9C 

1I34C  FUNCTION  CODE  (FC): 

1444C  • > TREAT  AS  NORMAL  CALL  FROH  ’MIN'. 

1454C  I « TREAT  AS  LISTING  CALL  FROH  ’TNOD’. 

I444C 

1171  CHARACTER  FNANE«4,  DATE$*8(3>,  CARD* 4 54,  REC*94(5I, 

140ft  STSCOD*2 (4f ) » STSNAR*12<4«),  ANS*3 

1494C 

M44  INTEGER  SECNO,  LSIZE.  0IR(3I.  INF0(3I,  DATAS43). 

111ft  CONT,  DSSEC(4f)i  DESEC (44),  DNSEC(4f>, 

112ft  IKK 441,  FIRST,  FC,  RNUH 

1134C 

1144  LOGICAL  OIREUP,  INFOUP,  OATAUP,  HINFO 

USfC 

1144  EQUIVALENCE  (CARD,  REC(l)) 

I174C 

1184  COHHON  /RISC/  DIREUP,  INFOUP,  DATAUP,  HINFO,  NSEL 
119fC 

1244  COHHON  /IDSEC/  FNAHE , DATES,  LSIZE,  DIR,  INFO,  DATAS,  RNUH 
1214C 

1224  COHHON  /DRSEC/  STSCOO,  S1SNAH,  DSSEC,  DESEC,  DNSEC,  MEL 
1234C 

124fm*****t»t***«H»***i***m«*t««m***mm»«4***4tm*«m 

1254C 

1244  IF(FC.EQ.l)  GO  TO  94 

1274  IF (.NOT.  HINFO)  CO  TO  Sf 

1284  PRINT,  "INSTRUCTIONS?  (T  OR  N)* 

1294  READ,  ANS 

1344  IF  (ANS. ED. 'TM  GO  TO  25 

1314  HINFO  * .F.J  GO  TO  Sf 

1324  2S  PRINT,  "TOU  NAT  REQUEST  EITHER:" 

1334  PRINT,  " A - A LISTING  OF  ALL  RECORDS  IN  THE  FILE." 

1344  PRINT,  " E - END  - DONE  PROCESSING." 

1354  PRINT,  " T - LIST  THE  RECORDS  ON  THE  TEHP  FILE." 

1344  PRINT,  * R • LIST  A RANGE  OF  RECORDS  (IT  RECORD  HUMERI" 

1374  PRINT,  " ON  THE  SELECT  FILE." 

1384  PRINT,  " " 

1394  Sf  PRINT,  "ENTER  A (ALU,  E (END),  I (INSTR),  T (TEHP),  OR  ", 
14441  ”R  (RANGE)." 

1414  READ,  ANS 

1424  IFtANS.EQ.'AM  GO  TO  44 

1434  IF(ANS.EQ.'R’)  GO  TO  94 

1444  IFIANS.EQ.'IM  GO  TO  25 

1454  IF(ANS.EO.'T')  GO  TO  95 

1444  IF(ARS.EQ.,EI)  RETURN 
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1471  CO  TO  5§ 

I48K 

1491*  - • LIST  ALL  OF  DATA  BASE  CONTENTS. 

ISM  M I TOTAL  = I 

1511  DO  8#  I • 1>  DIR (3) 

1521  SECNO  * DSSEC(I) 

1531  DO  71  J * It  DNSEC(I) 

1541  CALL  RSEC  (CARD*  SECNO,  CONT,  »9H) 

1551  NUMB  * 5 

1541  CALL  DSPLAT  (CARD.  NUHB.  ITOTAL.  1.  1) 

I57f  SECNO  * CONT 

158f  71  CONTINUE 

1591  81  CONTINUE 

14M*  - - FINISHED  KITH  COMPLETE  DISPLAT. 

1411  PRINT.  "COMPLETE  FILE  DISPLATED." 

1421  CO  TO  51 

143K 

144l«  • - DISPLAY  RECORDS  ON  TEMP  FILE. 

145f  91  PRINT.  "ENTER  THE  NUMBERS  OF  THE  FIRST  AND  LAST  RECORDS". 
144K  " TO  BE  DISPLATED." 

1471  READ.  FIRST.  LAST 

1481  CO  TO  1M 

1491  95  FIRST  = I 

17M  IF(NSEL.CT.I)  CO  TO  97 

1711  94  PRINT.  "NO  DATA  ON  TEMP  FILE.." 

1721  CO  TO  51 

1731  97  LAST  * NSEL 

1741  IN  IF(LAST.LE.NSEL)  CO  TO  121 

1751  PRINT  115.  NSEL 

1741  IF (NSEL.LE.I)  CO  TO  94 

1771  115  FORMAT  (IX.  "THERE  ARE  ONLY".  15.  " RECORDS  ON  THE  TEMP  ", 
178K  "FILE.") 

1791  CO  TO  91 

18MC 

1811  121  ITOTAL  • FIRST  - I 
1821  NREAD  * LAST  - ITOTAL 

1831  lF(NREAD.CTJ)  CO  TO  124 

1841  PRINT,  "THE  'LAST'  VALUE  MUST  BE  GREATER  THAN  THE  'FIRST'." 
1851  CO  TO  9f 

1841  124  ITOTAL  * f 

1871  IPT  * I 

1881*  • - COMPUTE  STARTING  SECTOR. 

1891  125  IREN  • NOD  (FIRST,  5) 

19M  SECNO  * FIRST  / 5 

1911  IF(IREH.CT.f)  SECNO  ’ SECNO  * I 
1921  IF  I IREN. EQ. I)  IREN  * 5 

1931*  - - READ  FROM  TEMP  FILE. 

1941  127  READ  (2l'SECNO,  END4M,  ERR>85«)  CARO 

195f*  * - IF  1ST  RECORD  TO  BE  PRINTED  IS  1ST  IN  BUFFER,  PRESS  ON. 

1941  IF(IREM.EO.l)  CO  TO  13D 

I97M  - - COMPUTE  NUMBER  TO  READ. 

1981  NUMB  * 4 * IREN 

144 
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Mi  IF (NUMB. CT. NREAD)  NUMB  * NREAD 

2Mi  1PT  * IREN 

.2111  CO  TO  141 

2121  131  NUMB  * 3 

2131  IF (NREflD.LT. 5)  NUMB  = NREAD 

2141  141  CALL  DSPLAT  (CARD.  NUMB.  ITOTAL.  FIRST.  IPT) 

2151  142  NREAD  * NREAD  • NUMB 
2ftf  IF(NREAO.LE.i)  CO  TO  144 

2171  SEGNO  * SEGNO  ♦ 1 

2181  IREN  * 1 

2191  CO  TO  127 

21M  144  PRINT  145.  ITOTAL 

2111  145  FORMAT  (11.  "SELECTED  LIST  CONTAINS".  14.  " RECORDS.") 
2121  IF (FC.EQ.f ) GO  TO  54 

2131  RETURN 

214K 

2151  8ff  PRINT.  "EOF  MULE  READING  TEMP  FILE." 

2141  CO  TO  911 

2171  85f  PRINT.  "ERROR  RETURN  M(ILE  READING  TEMP  FILE." 

2181  CO  TO  911 

2191  9M  PRINT.  "EOF  WHILE  READING  DATA  BASE  FILE." 

22M  911  PRINT.  "TERMINATING  ’LIST'  FUNCTION." 

221i  RETURN 

2221  END 


SUBROUTINE  PUTCET 


lfMCPUTGET  PUT/GET  'TEMP'  RECORDS  ON/FROH  PERM-FILE. 

lflfC 

lf2fC 

113#  SUBROUTINE  PUTCET  (MODE) 

104IC  NODE*. 

1I5IC  1 * PUT  RECORDS  ON  PERN-FILE. 

lftfC  2 * GET  RECORDS  FROM  PERN-FILE  ANO  PLACE  ON  'TEMP1. 

1I7K 

1181  CHARACTER  TBUFFM5fi  TREC*9I<5).  ANS*1.  TEMP* It  ATCH*3I. 
I«9ft  FNANEUi  DATES*8(3> 

I1MC 

ill!  INTEGER  SECNO.  0IR(3).  INF0(3).  DATAS(3)>  RNUH 

112RC 

1131  LOGICAL  DIREUPt  INFOUP.  DATAUP*  UINFO.  ALL.  DONE 

1144C 

115#  EQUIVALENCE  (TBUFF.  TREC(ll) 

IIAfC 

1171  COMMON  /HISC/  DIREUPt  INFOUP.  DATAUP.  UINFO.  NSEL 
I18K 

1191  COMMON  /IDSEC/  FNAME.  DATES*  LSIZE*  DIR.  INFO.  DATAS.  RNUN 

1 2 IRC 

1211  IF (MODE. EQ. 2)  GO  TO  31 

1221  IF(NSEL.GT.f)  CO  TO  21 

1231  PRINT.  "THERE  ARE  NO  RECORDS  ON  THE  TEMP  FILE." 

1241  RETURN 

1251  21  PRINT.  "DO  YOU  UANT  TO  TRANSFER  ALL  RECORDS  'A*.  OR  ". 

124ft  "MODIFIED  »H»  ONLY  (A  OR  Ml?" 

1271  READ.  ANS 

1281  ALL  > .F. 

1291  IFtANS.EQ.’A’I  ALL  * .T. 

13M  31  PRINT.  "ENTER  THE  CAT/FILE  STRING  FOR  TOUR  SEQUENTIAL  PERN". 
131M  "FILE.  YOU  MUST  END  UITH  ’!*" 

1321  READ.  ATCH 

1331  CALL  DETACH  (31.  ISTAT.) 

1341  CALL  ATTACH  <3f.  ATCH.  3.  ft.) 

1351  IF (NODE.EQ.2)  CO  TO  IN 

134IC 

137N  • • COMPUTE  TOTAL  NUNIER  OF  SECTORS  OF  DATA  ON  TEMP. 

13M  41  IREN  * NOD  I NSEL.  S) 

1391  NURSEC  * NSEL  / 5 

14N  IF ( IREH.CT.f ) NUNSEC  * NUNSEC  * 1 

1411  SECNO  * 11  TEMP  * ' * 

1421  1TOT  * II  1STOP  * S 

1431*  - - READ  NEXT  SECTOR. 

1441  45  REM  (2I’SECN0.  EN0*8M.  ERR*85#>  TIUFF 
1451  ITOT  « ITOT  ♦ 5 

1441  IF(ITOT.GT.NSEL)  ISTOP  * ISTOP  • (1TOT-NSEL) 


144 


w 


147#  DO  if  I s 1.  1ST0P 

1481  IF (ALL)  CO  TO  Sf 

1491*  - - EXTRACT  STATUS  FLAC  FROM  RECORD. 

ISM  CALL  CONCAT  (TEHP*  1.  TREC(I).  2.  1) 

151#t  • - CHECK  FOR  MODIFIED  STATUS. 

1521  IF(TEHP.EQ.'H')  CO  TO  Sf 

lS3f  CO  TO  if 

154ft  * - WRITE  RECORD  TO  PERK-FILE. 

1551  5f  WRITE  <3fi  55.  ERR=875)  TREC(I) 

ISif  55  FORMAT  (A9f) 

157f  if  CONTINUE 

158ft  - * INCREMENT  SECTOR  NUMBER  AND  SEE  IF  HE  SHOULD  GET  ANOTHER. 

159f  SECNO  * SECNO  t 1 

liff  IF (SECNO. LE.NUMSEC)  CO  TO  45 

lilft  • * PROCESSING  COMPLETE. 

Ii2f  7f  ENDFILE  3f 

li3f  75  PRINT.  "PROCESSING  COMPLETE." 

IA4f  RETURN 
liSfC 

liift  - - GET  NODE. 

147ft  HAS  TEHP  FILE  SPACE  BEEN  ALLOCATED  YET? 

148f  IN  lF(NSEL.CE.f)  CO  TO  125 
149ft  - - NO.  ALLOCATE  TEHP  FILE  SPACE. 

17fft  - - DESIRED  FILE  CODE. 

171f  LGU  * 2f 

172ft  - - SIZE.  IN  WORDS.  FOR  TEMP  FILE. 

173f  ISIZE  « 32f  t LSIZE 

174# t - - ASK  FOR  RANDOM  MASS  STORAGE  FILE. 

175#  INODE  * 1 

174#  CALL  CREATE  (LCU.  ISIZE.  INODE.  ISTAT) 

177#  IFdSTAT.EO.f  .OR.  ISTAT.E0.5)  CO  TO  12f 
178#  PRINT.  "ERROR  RETURN  FROM  CREATE  CALL." 

179#  PRINT.  "ERROR  CODE  =",  ISTAT 

18M  PRINT.  "RETURNING  TO  MAIN  PROCRAM." 

181f  RETURN 
182fC 

183ft  * - INITIALIZE  TEHP  FILE. 

184#  12f  CALL  RANSIZ  (2ft  75.  1) 

183#  125  MSEL  * # 

184#  SECNO  * 1 
187#  DONE  * .F. 

188#  13f  DO  14f  I * 1.  5 

189#  READ  (3f.  55.  EMDs15f ) TREC(I) 

19M  NSEL  * NSEL  ♦ 1 

191#  14#  CONTINUE 
192f  CO  TO  14# 

193f  15#  DONE  * .T. 

194ft  - - WRITE  SECTOR  TO  TEHP. 

195#  14#  WRITE  (21'SECNO.  ERR-9M)  TBUFF 
194#  IF(OONE)  CO  TO  75 
197#  SECNO  * SECNO  ♦ 1 
198#  CO  TO  13* 
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m«c 

2 Hi  8#f  PRINT » "EOF  WHILE  READING  TEMP." 

2111  CO  TO  71 

2121  851  PRINT.  "ERROR  RETURN  UHILE  READING  TEMP." 

2131  GO  TO  flf 

2f4#  875  PRINT.  "ERROR  RETURN  UHILE  UNITING  TO  PERN-FILE." 
2f5l  GO  TO  911 

2141  9M  PRINT.  "ERROR  RETURN  UHILE  URITINC  TO  TEHP." 

2171  911  PRINT.  "TERHINATING  PUT/GET  PROCESSING." 

2181  RETURN 

2191  END 
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SUBROUTINE  RECItOO 


IMICRECNOt 

IllfC 


ROUTINE  TO  HOOIFI  DATA  RECORDS. 


If2f 

lf3fC 

l#4f 

l#5#t 

IfAfC 

1171 

l#8ft 

1B9BC 

UN 

UltC 

1121 

1 13fC 

UN 

UStfC 

I1M 

U7IC 

UM 

U9#t 

121ft 

121ft 

122ft 

123ft 

I24K 

125# 

12M 

127f 

128f 

129# 

13N 

131#  S 

132# 

I33f 

134#  8 

135#  If 

134# 

137# 

138# 

139#  12 

14N 

141# 

142#  14 

143# 

I4N 

145# 

I4M  15 


SUBROUTINE  RECNOD  (RECN) 

CHARACTER  STR+8U5).  LSTR*3f.  BUFF+45#.  SREC»9«(5). 

NULLN/'tNULL*’/'  TEHP+4.  HOLD+8.  TKP*l/»  »/ 

INTEGER  RPt  RECI2#).  FPt  FLDI15) » SP.  RECN. 

ST1U8).  ST2U8).  CT  (18) 

LOCICAL  PNT 

EQUIVALENCE  (BUFF.  SREC(U) 

COHNON  /NODBUF/  BUFF 

COHNON  /ARRATS/_RP.  REC.  FP.  RD.  SP.  STR.  LSTR.  NFLDS 

DATA  ST1 / 1.  3.  5.  7.  15.  14.  21.  2&.  31.  35.  4#.  45. 
5#.  52.  54.  84.  85.  84/. 

ST2/  1.  1.  I.  1.  1.  4.  4.  4.  5.  4.  4.  4. 

1.  1.  1.  1.  1.  1/. 

CT/  1.  2.  2.  8.  1.  5.  5.  5.  4.  5.  5.  5. 

2.  2.  3f.  1.  1.  1/ 

DO  3#  J * 1.  FP 
K * RD(J) 

IFIK.NE.15)  CO  TO  5 

CALL  CONCAT  (TEMP.  1.  LSTR.  1.  4) 

IF(TEHP.EO.NULL)  LSTR  * STR(J) 

CO  TO  25 

IF (K.LT .4  .OR.  K.CT.12)  CO  TO  2# 

IF (K.EQ.4  .OR.  K.EQ.9  .OR.  K.EQ.lf)  CO  TO  8 
CO  TO  18 

IS  * 8?  IC  * 1!  HOLD  » Mi  I « #1  PNT  * .F. 

1*1  + 1 

CALL  CONCAT  (THP.  1.  STR(J).  I.  1) 

IF (TNP.EQ. * ')  CO  TO  14 
IF(THP.EQ.'.M  CO  TO  15 
CALL  CONCAT  (HOLO.  IC.  THP.  1.  1) 

IC  * IC  + 1 
CO  TO  14 
TNP  * »•» 

IF (.NOT.  PNT)  CO  TO  14 
IF(IC.LT.IS)  CO  TO  12 
CO  TO  14 
PNT  * .T. 


SUBROUTINE  RJUST 


lfHCRJUST  SUB  TO  RIGHT  JUSTIFY  NUMERIC  DATA, 

till  SUBROUTINE  RJUST  (TEHP) 

IKK 

1130*  • - PLACES  LEADINC  ZEROES  IN  TEHP  U1TH  DATA  RT  JUSTIFIED. 

1040C 

10S0  CHARACTER  TEHP*8>  HOLD*!/*  '/.  0UT*8> 

10401  ZER0S»8/» 00000000*/ 

107K 

1080  J * 0 

1090*  - - TRANSFER  TEHP  TO  OUT. 

1100  OUT  = TEHP 

1110  DO  50  I : It  8 

1120  K = I 

1130  CALL  CONCAT  (HOLD.  1.  OUT.  K.  1) 

1140  IF (HOLD.EQ. ' »)  GO  TO  70 

1150  J = J ♦ 1 

1140  50  CONTINUE 

1170  RETURN 

1180*  - - LOAD  TEHP  WITH  ZEROES. 

1190  70  TEHP  = ZEROS 

1200  1FU.EQ.0)  CO  TO  80 

1210  L s 8 - (J  - 11 

1220  CALL  CONCAT  (TEHP,  L,  OUT,  l,  J) 

1230  80  RETURN 

1240  END 


SUBROUTINE  RUNSIZ 


IMfCRUNSIZ 

IIIK 


SIKSIZ  SIZING  ROUTINE. 


1121 

U3fC 

Jf4f 

115ft 

Ukft 

117ft 

118ft 

119ft 

tlfft 

11  lft 

U2fC 

H3f 

114ft 

115ft 

l lift 

117ft 

118ft 

I19K 

lZff 

121ft 

122ft 

123ft 

124fC 

12Sf 

126ft 

127ft 

128fC 

129f 

13ffC 

131f 

1 32f  C 

133f 

134fC 

1 35# 

136fC 

137f 

138fC 

139f 

MffC 

14U 

142ft 

143ft 


SUBROUTINE  RUNSIZ 

CHARACTER  FNANE*6.  DATES*8 (3) , CPUC»2 ( 15) > CPUN*8 1 IS) , 

LANCCM(lf).  LANCN*8(lf) > SIHC0DM(2f).  SIHNAH*8(Zf) » 
STSC0D*2(4f) . STSNAHM2(4f),  ANS*1.  CARD*45f,  ACM. 
R£C*9f(5)«  FREC»42(lf).  SIS*2r  LANM.  CC»2.  STATM. 
OACM.  0CC*2.  01  AMI.  0STS»2.  CODEM.  HHHM /'«'/. 
TEHP*8(7)»  H0LD*8.  CHAM/'  ’/.  TR*2,  LABEL*  12. 
LABEL1*12/'SIHPLE  AVE  «/.  LABEL2*12/'UEIGHTE0  MV/, 
CARD2*45f.  REC2*9f(5).  HC*2 

INTEGER  SECNO.  LSIZE.  DIR(3)t  1NF013),  DATAS13).  CONT. 
DSSECUf).  DESEC (4f).  DNSEC(4f).  NDEL (4f ) . RNUH. 
SIMTXT (2f ) » CINSTC(2f).  GIN$TN(2f).  CDATAC (2f ) . 
CDATAH(2f)»  STK7).  ST2I7).  CT(7).  TINSTC(Zf) . 
TINSTN(2f).  TDATAC(Zf).  TDATAM (2f) » DAI.  DA2. 

TENP2.  TEHP3.  TEMPS » TEHP6,  TSECNO.  HTHOU/ lfffff / 


REAL  MAXI (2f ) t AVETI<2f)«  TTINC(2f). 
GTINHIZf ) t CPUS (15).  LANGS (If). 


TTlHH(Zf).  CTIMC (2f ) • 
S1HFACI2/)'  Til, 


CPS.  TI2. 
CPUT115) 

LOGICAL  DIREUP. 
HITF (Zf ) » 
BIG 


CCON.  LCON.  TCON.  UAIT(2f).  MAX.  AVE. 


INFOUP.  DATAUP.  HINFO. 
UTS.  0PT1.  0PT2.  0PT3. 


FFLG(4f).  SFLC(2f) . 
ADDIT.  DONE.  FIRST. 


EQUIVALENCE  (CARD.  REC(l).  FREC(l)).  (CARD2.  REC2I1)) 
COMMON  /RISC/  DIREUP.  INFOUP.  DATAUP.  UINFO.  NSEL 
CONNON  /IDSEC/  FNAME . DATES.  LSIZE.  DIR.  INFO.  DATAS.  RNUH 
COHHON  /INSEC/  CPU C.  CPUN.  CPUS.  CPUT,  LANGC.  LANCN.  LANGS 
CONNON  /INFOS/  SIHCOf.  SIHNAN*  SINFAC.  SIHTXT 
CONNON  /DRSEC/  STSCOD.  STSNAN.  DSSEC.  DESEC.  ONSEC.  NDEL 


DATA  STI/  16.  21. 


ST2/ 
CT  / 


4. 

5. 


26.  31.  35.  4f. 

4.  5»  4.  4. 

5.  4.  5.  5. 


45/, 

4/, 

5/ 


1448C 

145f************** ****»*?*************************************#* i** ** 
146fC 


152 


1471  21 

IF ( .NOT . UINFO)  CO  TO  49 

1481 

PRINTt 

"INSTRUCTIONS  (T  OR  N)?" 

1491 

READ. 

MIS 

150# 

lF(ANS.EQ.'T')  CO  TO  25 

1511 

UINFO 

* .F. 

152# 

CO  TO  4# 

1531  25 

UINFO 

* .T. 

154# 

PRINT. 

"THIS  ROUTINE  HILL  DO  SIZING  RUNS  WITH  THREE  DIFFERENT  ". 

15514 

"OPTIONS!" 

1541 

PRINT. 

■ OPTION  1 - PERFORN  A SIZING  FUNCTION  ON  THE  ENTIRE  ". 

15714 

“DATA  BASE." 

158# 

PRINT. 

“SUBTOTALS  URL  BE  PRINTED  AT  EACH  FUNCTION  LEVEL  FOR  ". 

15914 

"EACH  SIHULATOR" 

14f# 

PRINT. 

"CODE  (SIN  CODE)  IN  THE  INFORMATION  SECTION.  CRAND  TOTALS 

14114 

"BT  SIN  COOE.  ARE" 

142# 

PRINT. 

"PRINTED  AT  THE  END.  SIZE  TOTALS  IN  THE  INFORMATION  ". 

14314 

"SECTION  ARE  UPDATED" 

144# 

PRINT. 

"FOR  EACH  SIN  CODE." 

14S# 

PRINT. 

* OPTION  2 - PERFORN  A SIZING  FUNCTION  ON  ALL  NON-". 

144*4 

"DELETE  NARKED  RECORDS  ON" 

147# 

PRINT. 

"THE  SIHSIZ  TEMP  SELECT  FILE.  AS  ABOVE.  SUBTOTALS  ". 

16814 

"AND  CRANO  TOTALS  ARE  PRINTED." 

149# 

PRINT. 

"HOUEVER  THE  INFORMATION  SECTION  TOTALS  ARE  NOT  AFFECTED/". 

17M4 

“UPDATED." 

171# 

PRINT. 

" OPTION  3 - PERFORN  A SIZING  FUNCTION  AGAINST  THE  DATA" 

172(4 

" BASE  BT  SELECTED" 

173# 

PRINT. 

"FUNCTION  CODES  FOR  SELECTED  SIN  CODES.  SIZES  ARE  ". 

174ft 

"REPORTED  AS  AVERAGES  (USING” 

175# 

PRINT. 

"DATA  FROH  SELECTED  SIN  CODES).  UEICHTINC  FACTORS  NAT  ". 

174(4 

"BE  APPLIED  BT  SIN  CODE." 

177# 

PRINT. 

“COMPLEXITY  FACTOR  ADJUSTMENTS  MT  BE  HADE.  IN  ADDITION.  " 

178(4 

"THE  AVERAGE  TOTALS" 

179# 

PRINT. 

"ARE  AGGREGATED  FOR  A FINAL  AVERAGE  CRAND  TOTAL.  NEU  “. 

18(14 

"RECORDS.  HAVING  THE  SIZE" 

181# 

PRINT. 

"VALUES  AS  DETERMINED  FOR  A GIVEN  FUNCTION.  MT  BE  ". 

182(4 

"CREATED  AND  PLACED  ON  THE" 

183# 

PRINT. 

"SIHSIZ  TENP  FILE  FOR  LATER  ADDITION  TO  THE  DATA  BASE.  ALL 

184(4 

"THESE  RECORDS  UILL" 

1859 

PRINT. 

"BE  NARKED  UITH  A USER  SUPPLIED  SIN  CODE." 

1849C 

1879  41 

OPT1  * 

.F.I  0PT2  * .F.J  0PT3  * .F.l  OAC  * ' »i  OCC  * 'If' 

188# 

OLAN  > 

* M OSTS  * ' •;  NDIR  * 9!  ADDIT  * .F.I  DONE  * .F. 

1899 

BIC  « 

.F.I  TEMPI  * 9.91  TEMP2  * 1!  TENP3  * 9!  TENP4  « (.9 

19N 

TENP5 

91  TENP4  * 9!  UCNT  * (.(!  TSECNO  * 1 

1911*  • 

• RESET  TOTAL  AND  CRANO  TOTAL  TABLES.  COUNTERS  AND  FLACS. 

192# 

DO  59  I < 1.  2# 

193# 

C1NSTCU)  * « CINSTN(I)  > 9 

194# 

COAT AC (I)  > (i  COATAH(I)  * 9 

195# 

TINSTC(I)  > (I  TINSTN(I)  * 9 

194# 

TDATAC(I)  * (I  TDATAH(I)  * 1 

1979 

HAIKI 

* (.#;  AVETI(I)  * 9.9 

198* 

TTINCd)  > (.91  TTINH(I)  > 9.9 

m# 

CTIHC(I)  * ».»;  CTIHI(I)  « f.f 

2t#f 

WAIT (I)  * 1.1 

2fl# 

SFLC(J)  » .F. 

2121 

HITF(I)  * .F. 

2131  51 

CONTINUE 

2141 

DO  55  I * 1.  4# 

215# 

FFIC(I)  * .F. 

2ft#  55 
2#7#C 

CONTINUE 

2#8#  6# 

PRINT.  "ENTER  THE  NUMBER  OF  THE  OPTION  TOU  CHOOSE  (1  TO  3.  11 

21911 

"4  HILL  PRINT  INSTRUCTIONS) 

21## 

READ.  NUHB 

211# 

IFINUNB.LT. 1 .OR.  NUH8.CT.4)  CO  TO  4# 

212# 

213#C 

CO  TO  (Iff.  3f#.  525.  25).  NUHB 

214#*  - - 

OPTION  1. 

215#  1## 

OPT1  * .T. 

214#*  * * 

PRINT  OUT  HEADER. 

217# 

PRINT  84# 

218##  - - 

SET  ALL  SIN  CODE  ANO  FUNCTION  FLACS  TO  TRUE. 

219# 

DO  11#  I a l,  4# 

22M 

FFLC1I)  * .T. 

221# 

IF1I.CT.2AI  CO  TO  11# 

222# 

IF (SIMCOD1 I ) .EQ. * *)  CO  TO  11# 

223# 

SFLCII)  a .T. 

224#  11# 

CONTINUE 

225#*  - - 

SELECT  NEXT  RECORD  FROH  THE  DATA  BASE. 

224#  12# 

NDIR  a NDIR  * 1 

227# 

IF (NDIR.LE.DIR13) ) CO  TO  13# 

228#*  - - 

NO  MORE  DIRECTORY  ENTRIES. 

229# 

DONE  a ,T. 

23## 

CO  TO  35# 

231#*  - - 

IF  OPTION  3.  CHECK  TO  SEE  IF  THIS  FUNCTION  HAS  BEEN  SELECTED 

2321  13# 

IF ( .NOT.  0PT3)  CO  TO  15# 

233# 

DO  14#  I a 1,  4# 

234# 

IF (FFLC(NDIR) ) CO  TO  15# 

235#  14# 

CONTINUE 

234#*  - - 

THIS  FUNCTION  HAS  NOT  BEEN  CHOSEN. 

237# 

CO  TO  12# 

238#  IS# 

SEC NO  a OSSEC (NDIR) 

239# 

NSEC  a 1 

24##*  • - 

READ  THE  NEXT  SECTOR  OF  RECORDS. 

241#  155 

J > # 

242# 

CALL  RSEC  (CARD.  SECNO.  CONT.  <9#«) 

243#*  • - 
244#C 

•PICK1  NEXT  RECORD  OFF  DATA  BASE. 

245#  14# 
244«C 

J * J 4 1 

247# 

IF (J.LE.5)  CO  TO  18# 

248# 

SECNO  a CONT 

249# 

NSEC  * NSEC  4 1 

25## 

1F(NSEC.LE.DNS£C(ND!R»  CO  TO  155 

154 


251**  - - HAVE  RUN  OUT  OF  RECORDS  FOR  THIS  DIRECTOR!  ENTRT . 

232#  CO  TO  121 
2531*  - • DECODE  RECORD. 

2341*  EXTRACT  STATUS  FIAC. 

255#  18*  DECODE  (REC(J).  182)  STAT 
2341  182  FORMAT  IT2>  Al) 

237 « IHSTAT.EQ.'D*  .OR.  STAT.EQ.’  ')  CO  TO  141 

23M  DECODE  (RECIJ).  191)  AC.  STS.  LAN.  TU.  INI.  DAI.  CPS.  TI2. 

239M  IN2.  DA2.  CC 

24N  19#  FORMAT  (Al.  T3.  A2.  T15.  Al.  FS.2.  213.  F4.1.  FS.2.  213. 

Z41K  21.  A2) 

242f*  - • CHECK  FOR  NEU  FUNCTION  CODE. 

243#  IF(STS.EQ.OSTS)  CO  TO  197 
244#  IF 40STS.NE. ' ')  CO  TO  35# 

243#*  - - RESET  OSTS. 

244#  192  OSTS  * STS 

247#  197  IF(AC.EO.OAC)  CO  TO  21# 

248#  DO  2##  I * 1.  2# 

249#  lF(AC.EQ.SlHCODU))  CO  TO  292 
27##  2##  CONTINUE 

271#*  - - THIS  SIN  CODE  IS  NOT  IN  THE  INFO  SECTION. 

2721  PRINT.  "THE  FOLLOWING  SIN  CODE  IS  NOT  IN  THE  INFO  SECTION:  ".AC 
273#  PRINT.  "THE  RECORD  HILL  BE  ICNORED." 

274#  CO  TO  14# 

273#  292  IF( .NOT.  0PT3)  CO  TO  294 

274#*  • - IS  OPT3  SO  MUST  CHECK  FOR  NATCH  ON  SFLC. 

277#  IF(SFLCd) ) CO  TO  2#4 
278#*  • - NO  NATCH. 

279#  OAC  * »#» 

28##  CO  TO  14# 

281#*  * • SAVE  VALUE  OF  AC. 

282#  2#4  OAC  * AC 

283#*  - - SET  APPROPRIATE  HIT  FLAG. 

284#  HITF(I)  * .T. 

2839*  - - SAVE  VALUE  OF  I. 

284#  1PT  * I 

2879*  • - IF  OPT2  SET  SFLC. 

288#  IF(OPTZ)  SFLC (II  * .T. 

2899*  - • ADJUST  SIZES/TINES  BT  PROPER  CORRECTION  FACTORS. 

29##  219  IF(CC.EQ.OCC)  CO  TO  242 

2919*  - - IF  NO  HATCH  - DEFAULT  TO  FACTOR  OF  1.# 

2929  DO  229  I * 1.  13 

293#  IF(CC.EO.CPUC<!»  CO  TO  23# 

294#  22#  CONTINUE 

293#  PRINT.  "COULD  NOT  FIND  A NATCH  FOR  COMPUTER  CODE  ".  CC 

294#  PRINT.  "USING  DEFAULT  VALUE  OF  1.#  FOR  BTTES/UORD  AND  TININC  ". 

29798  "CONVERSION  FACTOR." 

298#  CCON  * 1.9 
299#  CPUTN  * 1.# 

3999  CO  TO  24# 

3#t#  239  CCON  * CPUS(I) 

3929  CPUTN  = CPUT(l) 


3#3#»  • - SAVE  CC  VALUE. 

3141  241  OCC  * CC 

3#5#*  • - CET  LANGUAGE  CONVERSION  FACTOR. 

3#4#  242  IF(LAN.EO.OLAN)  CO  TO  271 

3171  DO  251  I * 1*  II 

3f8f  IF (LAN.EQ.LANCC(I) ) CO  TO  24# 

3191  25#  CONTINUE 

31N  PRINT.  "COULD  NOT  FIND  A NATCH  FOR  LANGUAGE  CODE  LAN 

3111  PRINT.  "USING  DEFAULT  VALUE  OF  l.f  FOR  CONVERSION  FACTOR." 

3121  LCON  * l.f!  CO  TO  271 
3131  24#  LCON  * LANCS(I) 

315#  27#  TCON  * LCON  * SIHFAC(IPT) 

314#  TTIM(IPT)  * TTIHHUPT)  ♦ (Til  * TCON  * CPS  » CPUTH) 

317#  TTIHCdPTI  * TTINC(IPT)  ♦ (TI2  ♦ TCON  ♦ CPS  » CPUTH) 

318#*  - - ADJUST  TCON  TH  'BTTES/UORD'  FACTOR  (CCONI. 

319#  TCON  * TCON  * CCON 

32##  TINSTH(IPT)  * TINSTH(IPT)  ♦ (INI  * TCON) 

321#  TINSTC(IPT)  * TINSTC(IPT)  ♦ (IN2  « TCON) 

322#  TDATAN(IPT)  • TOATANIIPT)  ♦ (DAI  ♦ TCON) 

323#  TDATAC(IPT)  * TDATAC(IPT)  ♦ (DA2  « TCON) 

324#*  • - CHECK  FOR  GREATEST  CPS  VALUE. 

325#  IF (CPS.CT.HAXI ( IPT) ) NAII(IPT)  - CPS 

327#  ■ IFtOPTl  .OR.  0PT3)  CO  TO  14# 

328#  CO  TO  33# 

329#C 

33##*  - - HAVE  CHOSEN  OPTION  2. 

331#  3##  0PT2  = .1. 

332#  NSEC  * fi  ITOT  * > 

333#*  - - ARE  THERE  AN!  RECORDS  ON  THE  TEHP  FILE? 

334#  IF(NSEL.CT.f)  CO  TO  31# 

335#  PRINT.  "NO  RECOROS  ON  THE  SELECT  TEHP  FILE." 

334#  0PT2  * .F. 

337#  CO  TO  4# 

338#*  - - SET  FOR  THE  FIRST  SECTOR. 

339#  31#  SECNO  * 1 
34##*  • • PRINT  OUT  HEAOER. 

341#  PRINT  84# 

342#  IR  * HODtNSEL.  5) 

343#  ISEC  * NSEL  / 5 
344#  IF(IR.CT.f)  ISEC  * ISEC  ♦ 1 
345#  IFdR.EQ.#)  IR  « 5 

344#*  - - REA!  FRON  THE  TEHP  FILE. 

347#  32#  REAI  (2#»S£CN0.  END*91#»  ERR*92#)  CARD 

348#  J * f 

349#  NSEC  * NSEC  ♦ 1 

35##  ISTOP  * IR 

351#  1FINSEC.LT. ISEC)  ISTOP  > 5 

332fC 

353#  33#  J * J ♦ 1 
334#C 
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3551  IF(J.CT.ISTOP)  CO  TO  335 

354#*  - • CHECK  TO  SEE  IF  HE  ARE  AT  THE  END  OF  THE  TEMP  FILE. 

3571  ITOT  * ITOT  ♦ 1 

358#  IF(ITOT.LE.HSEL)  CO  TO  18# 

3591  CO  TO  34# 

34##*  - - READ  NEXT  SECTOR. 

341#  335  IF (NSEC.EQ. 1SEC)  CO  TO  34# 

342#  SECNO  * SECNO  * 1 
343#  CO  TO  32# 

3441*  - - HAVE  REACHED  END  OF  DATA. 

345#  34#  DONE  * .T. 

344#  CO  TO  35# 

347#C 

348#*  - - HAVE  DETECTED  SHIFT  IN  FUNCTION  CODE  OR  END  OF  DATA. 
349#  35#  IF ( .NOT.  0PT3)  CO  TO  48# 

37##  LABEL  > LABEL 1 

371#  IF(WTS)  LABEL  * LABEL2 

372#*  - • ADJUST  TOTALS  BT  HEIGHTS  (AS  NECESSARY). 

373#  DO  34#  I * 1*  2# 

374#  IF (.NOT.  HITF(II)  CO  TO  34# 

375#  TEMPI  * TEMPI  * (TTINH(I)  * UA!T(I)I 
374#  TEHP2  * TEMP2  * (TINSTHU)  * UAIT(D) 

377#  TEHP3  * TEMP3  * (TDATAH(I)  < UAIT(D) 

378#  TEMP4  * TEHP4  * (TTIHC(I)  » UAIT(D) 

379#  TEMPS  * TEMPS  ♦ (TINSTC(I)  * UAIT(D) 

38##  TEMP4  « TENP4  * (TDATAC(I)  * WAIT (I) > 

3811  34#  CONTINUE 

382#*  - • FIND  MAX  ITERATION  RATE. 


383# 

384# 

385# 

384# 

387#  37# 
388# 

389# 

39##  372 
391#  374 
392# 

393# 

394#t 
395#  375 
394# 

397# 

398# 

399#*  * - 

4### 

4#1# 

4#2f 

4«3# 

4#4# 


MAX  « #.# 

DO  37#  I * 1,  2# 

IF (MAXI (I) .LE.MAX)  CO  TO  37# 

MAX  • MAX  Id) 

CONTINUE 

IF (TEMP4.CT .#.•)  CO  TO  372 
AVE  * f.l!  CO  TO  374 
AVE  * TEHP4  / MI 
PRINT*  " " 

PRINT*  " FUNCTION  ".  OSTS 

PRINT  375*  LABEL*  MI*  AVE*  TEMP4*  TEMPS*  TENP4. 

TEMPI*  TEMP2*  TEHP3 

FORMAT  (21.  A12*  F8.2*  F9.2*  F9.2*  18.  17.  F9.2*  18*  17) 
PRINT*  "ENTER  COMPLEXITY  ADJUSTMENT." 

READ.  CMPLX 

IF(CMPLX.LT.#.###S)  CMPLI  * 1.8 
MULTIPLY  VALUE  BT  COMPLEXITY  FACTOR. 

TEMPI  * TEMPI  • CMPLI 
TEMP2  « TEMP2  ♦ CMPU 
TEHP3  * TEMP3  • CMPLX 
TEMP4  * TEHP4  • CMPU 
TEMPS  * TEMPS  • CMPLI 
TEMP4  > TEMP4  • CMPU 
TEMP7  * AVE  * CMPLX 


485# 

4#4# 
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4171  IFUIOT.  ADDIT)  CO  TO  44# 

4 #8#  PRIHT,  "ADD  TO  TEHP  U OR  «?" 

4f9f  READ,  AMS 

41H  IF(AMS.EO.'M')  CO  TO  44f 

411#*  • - CREATE  A RECORO  AND  ADD  TO  THE  TEMP  FILE. 

4121  REC24JPT)  * ' * 

413f  IF(TEHPl.LT.I.MfS)  CO  TO  378 

414#*  - - ADJUST  NFC'S  TIHINC  TO  CET  AVERAGE  TINIMC/CTCLE. 

4151  TEMPI  * TEMPI  / MAX 

414M  - - CHECK  FOR  TOO  LARGE  FIELDS. 

4171  IF4TEMP2.CE.HTHOU  .OR.  TEHP3.CE.HTH0U  .OR. 

418M  TEMPS. CE.HTHOU  .OR.  TEHP4.CE.HTH0UI  BIG  * .T. 
4191  IF ( .MOT . IIC)  CO  TO  378 

42H*  - • DIVIDE  BY  S. 

421#  IF (TEMP2.CT.il  TENP2  * TEHP2  / S 

422#  IF (TEHP3.CT.il  TEHP3  * TEMP3  / S 

423i  IFITEMPS.CT.il  TEMPS  * TEMPS  / 5 

424i  IF (TEMP4.CT.il  TEMP6  « TEMP4  / S 

4251  378  ENCODE  (TEHP(l).  38i>  TEMPI 
424#  38i  FORMAT  (F4.2.  21) 

427i  ENCODE  (TEMP(2),  39i)  TEHP2 

428i  39t  FORMAT  (IS.  3!) 

4291  ENCODE  (TEMPO).  398)  TEHP3 

43M  ENCODE  (TEHP  (5).  38i)  TEHP7 

431#  ENCODE  (TEMP (4).  39i)  TEMPS 

4321  ENCODE  (TENP(7).  39il  TENP4 

433#  ENCODE  (TEHFU).  4M)  MAX 

434#  4 ##  FORMAT  (F5.I.  3X1 

435i  BO  42i  K > 1.  7 

434#  HOLD  * » • 

437i  ICNT  * i 

438i  DO  41i  LI  * 1.  8 

439i  L * LI 

44M  CALL  CONCAT  (CHA.  1.  TENP(K).  L.  1) 

441#  1F(CHA.EQ.'  1 .OR.  CHA.EQ.'.'I  CO  TO  41# 

4421  ICNT  • ICNT  ♦ 1 

443#  CALL  CONCAT  (HOLD.  ICNT.  CHA.  I.  1) 

444#  41#  CONTINUE 
445#  CALL  RJUST  (HOLD) 

444#  CALL  CONCAT  (REC2IJPT) * STKK).  HOLD.  ST2IK).  CT(KI) 

447#  42#  CONTINUE 

448#  DECODE  (DATES (3).  425)  TR 

449#  425  FORMAT  (T7.  A2) 

45##  HC  * » ' 

431#  IF  (DIO  NC  * 'Ml* 

452#  ENCODE  (REC2(JPT).  43i>  CODE.  HHM.  OSTS.  TR.  NC 

453#  43#  FORMAT  (2A1.  A2.  lil.  'F»»  T5#»  2A2.  T84.  ’•##’) 

454#  NSEL  * NSEL  ♦ l 
435#  JPT  * JPT  ♦ 1 

454#»  - - IF  LESS  THAN  FULL  SECTOR.  PROCESS  NEXT  RECORD. 

437#  IFIJPT.LE.SI  CO  TO  44# 

458#»  - - WRITE  SECTOR  TO  TEMP. 

1S8 


459#  436  WRITE  <2#»TSECN0i  ERR--93#)  CARB2 
46N  IF  (FIRST)  CO  TO  725 

461#  TSECHO  * TSECMO  ♦ 1 
4621  JPT  * 1 

463#*  - - ADD  TOTALS  TO  GRAND  TOTALS. 

464#*  RUT  FIRST  CHECK  FOR  BIC  AND  RAKE  COUNTERCORRECTION  AS  NEEDED. 

465#  44#  ICOR  * I 
466#  IF (BIC)  ICOR  • 5 
467#  DIC  * .F. 

468#  CTIHH(l)  * CTIMN(l)  ♦ TEMPI 
469#  CINSTN(l)  * CINSTN(l)  ♦ TEHP2  ♦ ICOR 

47##  CDATAN(l)  * COATAR(l)  ♦ TERP3  * ICOR 

471#  CTIRC(l)  • CTIRC(l)  ♦ TERP4 
472#  CINSTC(i)  * CINSTC(l)  ♦ TERP5  ♦ ICOR 

473#  CDATAC(l)  * CDATACU)  ♦ TERP6  ♦ ICOR 

474#  442  IF (.NOT.  DONE)  CO  TO  446 

475#  PRINT t "REQUESTED  SIZING  COMPLETE.  WOULD  TOU  LIKE  TO  DO  SORE"* 
476ft  " MORE  (T  OR  N>?" 

477#  READ i ANS 

478#  IFIANS.EO.'T*)  CO  TO  446 

479#  FIRST  * .T. 

48##  444  IF(DON£  .AND.  ADDIT  .AND.  (NSEL.CT.#)  .AND.  (JPT.CT.D)  CO  TO  436 
481#  IF(DONE)  CO  TO  725 
482#*  - - RESET  TABLES. 

4831  446  DO  45#  K * 1.  2# 

484#  IF ( .NOT.  H1TF(K))  CO  TO  45# 

485#  TINSTC(K)  • •)  TINSTR(K)  • « 

486#  TDATAC(K)  * fi  TDATAM(K)  • f 
487#  MAXIMO  * #.# 

488#  AVETI(K)  * #.# 

489#  TTIHC(K)  • #.#?  TTINN(K)  • #.# 

49##  HITF(K)  * .F. 

491#  45#  CONTINUE 

492#  TEMPI  = (.ft  TERP2  * # 

493#  TERP3  * #i  TEMP4  * #.# 

494#  TEMPS  = #i  TERP6  * • 

495#  PRINT r " " 

496#*  - - INSURE  AC  NE  OAC. 

497#  OAC  * •#' 

498#  IFt.NOT.  DOME)  CO  TO  192 
499#*  - - RESET  FLAGS. 

5###  DO  46#  I * It  4# 

5#t#  FFLC(I)  * .F. 

S#2#  lFd.CT.Z#)  GO  TO  46# 

5#3f  SFLC(I)  * .F. 

5#4#  WAIT (I ) * l.f 

5#5#  HITF(I)  * .F. 

5(6#  46#  CONTINUE 

5r#  OCC  * »##»{  OLAN  * » M OSTS  « ' »!  DONE  * .F.i  NDIR  * ( 

5(8#  WCNT  * | J 
5(9#  CO  TO  54# 

5 1IIC 
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5111*  - - PROCESS  TOTALS  FOR  OPT  1 AND  2. 

5121  481  PRINT,  * FUNCTION  "•  OSTS 

5131  DO  SM  I * 1.  21 

5141  IF (.NOT.  HITF(I) ) GO  TO  5f« 

5151  ENCODE  (LABELi  491)  SIHNAN(I) 

5141  49#  FORMAT  ("FOR  ",  AS) 

5171  lF(TTlNCm.CT.I.f)  GO  TO  492 
5181  AVE  * f.ll  CO  TO  494 

5198  492  AVE  * TTIHC(I)  / MAXI (I) 

52M  494  PRINT  375,  LABEL,  HAIKI),  AVE,  TTINC(I),  TINSTC(l), 

521ft  TDATAC(I),  TTIHH(I),  TINSTN(I),  TDATAN(I) 

5221*  - • ADD  TOTAL$  TO  GRAND  TOTALS. 

5231  GTIHClI)  • CTIHC(I)  * TTINCII) 

5241  GTINH(I)  = GTINH(I)  ♦ TTINH(I) 

5251  GINSTC(I)  * CINSTC(I)  * TINSTCII) 

5241  CINSTHII)  - GINSTN(I)  * TINSTNII) 

5271  GDATACU)  * GOAT  AC  ( I ) * TDATAC(I) 

5281  CDATANU)  * GDATAN(I)  * TDATAH(I) 

529f*  - * RESET  TOTALS  AND  FLAGS. 

53N  TTIHC(I)  * Mi  TTIHH(I)  * f.f 
5311  TINSTCII)  * IT  TINSTNII)  * f 
5321  TDATACII)  * fi  TDATANII)  * • 

5331  HITFII)  * ,F.I  HAXIII)  = f.f 

534#  Sff  CONTINUE 

535f*  - - INSURE  AC  NE  OAC. 

534#  OAC  * >f 

537f  PRINT,  ■ M 

538f*  - • IF  DONE,  CO  TO  GRAND  TOTALS. 

539f  IF (DONE)  GO  TO  725 

54ff*  • - PRESS  ON  UITH  PROCESSING  LATEST  RECORDS. 

541f  GO  TO  192 
542fC 

543f*  - - SELECT  OPTION  3. 

544f  525  0PT3  * .T. 

545f  FIRST  * .T. 

544f  PRINT,  "DO  TOU  KANT  TO  ANALYZE  ALL  THE  CURRENT  FUNCTION  ", 

547ft  "CODES  IT  OR  N)?" 

S48f  READ,  ANS 
549f  IF(ANS.EQ.'N')  GO  TO  54f 
S5ff  lFIANS.NE.’YM  GO  TO  525 
551f»  - - TURN  ON  ALL  FUNCTION  FLAGS. 

S52f  10  53f  I « 1,  D1RI3) 

553f  FFLGII)  « .T. 

554f  53f  CONTINUE 
5S5f  CO  TO  57# 

5S4f*  • - TURN  ON  ONLY  SELECTED  FLAGS. 

557f  Sff  PRINT,  "ENTER  THE  2 CHARACTER  FUNCTION  COOES  (ONE  SET  PER  LINE)  ", 

558ft  "THAT  TOU  UISH  TO" 

S59f  PRINT,  "ANALYZE.  E»  UITH 
54ff  545  READ,  SYS 
541f  IF (SYS.E8. '##* ) GO  TO  37f 
542f  DO  55f  1 * 1,  DIR (3) 
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5431  IF (STS.EQ.STSCOO ( I ) > CO  TO  560 
5641  550  CONTINUE 

5651  PRINT.  “COULD  NOT  FIND  NATCH  FOR  FUNCTION  CODE  ".  STS 
5661  PRINT.  “ENTER  NEIT  VALUE." 

5671  CO  TO  545 
S68A«  - • TURN  ON  FLAC. 

5691  561  FFLCIU  * .T. 

57N  CO  TO  545 
5710C 

5721  571  PRINT.  “THESE  ARE  THE  FUNCTIONS  WHICH  HILL  DE  ANALTZEDs" 

5731  DO  5M  I * 1.  DIR  (3) 

5741  IFI.NOT.  FFLC(I))  CO  TO  5M 
5751  PRINT  575.  STSCOO(I).  STSNAN(I) 

5761  575  FORMAT  (11.  A2.  21.  A12) 

5771  584  CONTINUE 

5781  PRINT.  "DO  TOU  RANT  TO  ALTER  T&  LIST  (T  OR  NP" 

579D  READ.  ANS 

58M  IF(ANS.EQ.'N’)  CO  TO  590 

5811  DO  585  I * 1.  IIR(3) 

5821  FFLCU)  • .F. 

5830  585  CONTINUE 

5840  PRINT.  “START  OVER  AND" 

5850  CO  TO  540 

5860  590  IFI.NOT.  HINFO)  CO  TO  592 

5870  PRINT.  "TOU  MIST  NON  SPECIF!  THE  SIMULATOR  CODES  OF  THE 
58808  "SISTER  TOU  WISH  TO" 

5890  PRINT.  "INCLUDE  IN  THE  ANALYSIS.  THE  SIZINC  VALUES  ". 

59008  "HILL  DE  AVERACED.  DT  CATACORT" 

5910  PRINT.  "(TININC.  INSTRUCTION  SIZE.  DATA  SIZE.  ETC).  FOR  EACH  " 
59208  "SIN  CODE  AND  THE  AVERAGE" 

5930  PRINT.  "SIZES  HILL  IE  PRINTED  OUT  BT  MAJOR  FUNCTION.  THIS  ". 
59408  "AVERACINC  NAT  BE  ’UEICHTED’  * 

5950  PRINT.  "SO  THAT  THE  VALUES  FOR  THE  VARIOUS  SIMULATOR  STS". 
59608  "TER  (SIN  CODES)  HILL  HAVE  * 

5970  PRINT.  "MORE  OR  LESS  IMPACT  ON  THE  FINAL  AVERAGES.  (SEE  ". 
59808  "USER’S  MANUAL  FOR  FURTHER  " 

5990  PRINT.  "E1PLAINATI0N  OF  UEICHTINC.)" 

6000  592  PRINT.  "DO  TOU  UISH  TO  HEIGHT  THE  SIZINC  DATA  (T  OR  Nl?" 

6010  READ.  ANS 

6021  IF(AR.EQ.’N’)  CO  TO  621 

6030  UTS  * .T. 

6040  594  PRINT.  "ENTER  1 CHARACTER  SIM  CODE  AND  ITS  HEIGHT  (SEPERATED  " 
60508  "BT  A COMMA).  " 

6060  PRINT.  "ENTER  >0.  0’  TO  SIGNIFT  END." 

6070  596  READ.  AC.  TEMPI 

6080  IF(AC.EO.’O’)  CO  TO  660 

6090*  - - LOOK  FOR  NATCH  ON  THE  SIN  CODE. 

6100  DO  600  I * 1.  20 

6110  IF(AC.EQ.SINCOOd))  CO  TO  610 

6120  600  CONTINUE 

6130  PRINT.  "COULD  NOT  FIND  A NATCH  FOR  SIN  CODE  ".  AC 

6140  PRINT.  "ENTER  NEIT  SET  OF  VALUES." 
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4151  CO  TO  596 

4161*  * - SET  FLAG  AMO  WEIGHT. 

6171  611  SFLG(I)  * .T. 

618*  WAIT (I)  * TEMPI 
619*  WCNT  = UCNT  * WAIT(I) 

62«f  CO  TO  596 
421IC 

4221#  - - ENTER  SIN  CODES  ONLY. 

423*  621  PRINT.  "ENTER  THE  1 CHARACTER  SIN  CODES  (ONE  PER  LINE)." 

6241  PRINT.  "END  WITH  **’." 

425*  WTS  * .F. 

626*  63*  READ.  AC 

427*  IF(AC.EQ.'f')  CO  TO  66* 

428*#  • • LOOK  FOR  NATCH  ON  SIN  CODE. 

629*  DO  64*  I M.  21 

63**  IFlAC.EQ.SINCOOd))  GO  TO  650 

631*  64*  CONTINUE 

632*  PRINT.  "COULD  NOT  FIND  A NATCH  FOR  SIN  CODE  AC 

633*  PRINT.  "ENTER  NEXT  VALUE." 

634*  CO  TO  63* 

635*#  - • SET  SIN  CODE  FLAC. 

636*  65*  $FLC(I)  * .T. 

637*  WAIT (I)  * l.t 
638*  WCNT  * WCNT  * 1.* 

639*  CO  TO  63* 

64ff*  - - LIST  SELECTIONS. 

641*  66*  PRINT.  "THESE  ARE  THE  SINULATOR  SYSTEMS  TOU  HAVE  CHOSEN  TO  ". 
642*8  "WORK  WITH:" 

643*  DO  47*  I * 1.  2* 

444*  IF ( .NOT . SFLC(I)>  CO  TO  67* 

645*  IF (WTS)  CO  TO  666 

646*  PRINT  662.  SINCOD(I).  SINNAN(I) 

647*  662  FORHAT  (IX.  Al.  2X.  A8) 

648*  WAIT(I)  * WAIT (I)  / WCNT 

649*  CO  TO  67* 

65**  666  IF (UAIT (I).CT.f.*)  CO  TO  667 

651*  CO  TO  6672 

652*  667  WAIT(I)  * WAIT(I)  / WCNT 

653*  6672  PRINT  668.  SINCOD(I).  SINNAH(I).  WAIT(I) 

454*  668  FORHAT  (IX.  Al.  2X.  A8.  " WE1CHT  F5.2) 

655*  67*  CONTINUE 

656*  PRINT.  "DO  TOU  WISH  TO  CHANCE  THESE  VALUES  (T  OR  Nl?" 

657*  READ.  AMS 

658*  IFIANS.EQ.'NM  CO  TO  69* 

659*  PRINT.  "START  OVER.  ENTER  ALL  VALUES  AGAIN." 

66*f  DO  68*  I * 1.  2* 

661*  SFLCII)  * ,F. 

662*  68*  CONTINUE 
663*  WCNT  > *.* 

664*  IF (WTS)  CO  TO  594 
665*  CO  TO  62* 

666*  69*  IF ( .NOT.  FIRST)  CO  TO  692 
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4478  PRINT*  "HILL  YOU  WANT  TO  BE  ADDINC  RECORDS  TO  THE  »TEHP»  " 
44884  -FILE  (T  OR  N)?“ 

4498  READ.  ANS 

671#  FIRST  * .F. 

4711  (F(ANS.EQ.'T')  GO  TO  494 

4721  492  PRINT  841 

473#  CO  TO  121 

474#*  - - CHECK  TO  SEE  IF  THE  TEHP  FILE  IS  ATTACHED. 

475#  494  IF(NSEL.CE.I)  CO  TO  781 
474#*  - - HOST  ATTACH  TEHP  FILE.  DESIRED  FILE  CODES 

4771  LCU  * 21 

4788*  - - SIZE*  IN  WORDS r FOR  TEHP  FILE. 

479#  1SIZE  * 328  * LSIZE 

4888*  - - ASK  FOR  RANOOH  HASS  STORAGE  FILE. 

4818  HODE  * 1 

4828  CALL  CREATE  (LCU*  ISIZE*  HODE.  1STAT) 

4838  IFI1STAT.EQ.8  .OR.  ISTAT.EO.S)  GO  TO  494 

4848  PRINT.  -ERROR  RETURN  FROH  CREATE  CALL.  ERROR  CODE  =".  ISTAT 
4858  PRINT.  -RETURNING  TO  HAIN  PROCRAH." 

4848  RETURN 

4878#  - - INITIALIZE  TEHP  FILE. 

4888  494  CALL  RANSIZ  (28.  75.  1) 

4898  788  NSEL  = 8 

4988  SECNO  * 1 

4918  JPT  = 1?  ADDIT  * .T. 

4928  785  PRINT.  -ENTER  1 CHARACTER  SIN  CODE  TO  BE  APPLIED  TO  ALL 
49384  "RECORDS." 

4948  READ.  CODE 

4958  DO  718  I * 1.  28 

4948  IF(CODE.EQ.SIHCOD(I)>  GO  TO  715 

4978  718  CONTINUE 

4988  GO  TO  492 

4998  715  PRINT  728.  CODE.  SIMAHU) 

7888  728  FORMAT  (II.  "SIH  CODE  "»  Al.  " IS  ALREADY  IN  USE  FOR  THE  “. 
78184  A12.  " SIHULATOR. " . / . "DO  YOU  STILL  NISH  TO  USE  ". 

78284  “THAT  SIH  CODE  (T  OR  N)?"> 

7838  READ.  ANS 

7848  IF(ANS.EQ.’N’)  GO  TO  785 

7858  PRINT  848 

7848  GO  TO  128 

7878C 

7888*  - - DONE  READING  RECORDS.  PRINT  GRAND  TOTALS. 

7898  725  PRINT  738 

7188  738  FORHAT  (2H8.  27UH#}.  "CRAND  TOTALS".  27(1H»).  //) 
7118  PRINT  848 

7128  PRINT.  - * 

7138  IFt.NOT.  OPT3I  CO  TO  748 

7148  LABEL  * LABEL! 

7158  IF(NTS)  LABEL  * LABEL2 

7148  PRINT  748.  LABEL.  CTIHC(l).  CINSTC(l),  CDATAC(l).  CTIHH(l), 
71784  GINSTN(l).  CDATAH(l) 

7188  748  FORHAT  (II.  A12.  41.  71.  31.  F7.2»  18,  17, 
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719K  F9.2.  18.  17) 

72N  FftlNTf  " ■ 

7211  PRINT*  " " 

7221  JF(.NOT.  ABDIT)  RETURN 
7231  PRINT  75#,  NSEL 

7241  75#  FORMAT  (II.  13.  " RECORDS  HERE  ADDED  TO  THE  TEMP  FILE.".  ///) 

7251  RETURN 

726#  76#  BO  77#  I * 1.  2# 

727#  JF(.NOT.  SFLC(I)I  CO  TO  77# 

728#  ENCODE  (LABEL.  49#)  SINNAM(I) 

729#  PRINT  74#.  LABEL.  CTIHC(I).  GINSTC(I).  CDATAC(I) • CTIHH(I). 
73#M  CINSTN(I).  CDATAM(I) 

731#  771  CONTINUE 

732#  IF(OPTZ)  CO  TO  795 

733#*  • - UPDATE  VALUES  IN  INFO  SECTION. 


734#  SECNO  * INFO(l)  ♦ 1 
735#  J * • 

736#  772  CALL  RSEC  (CARD.  SECNO.  CONT.  4988) 

737#  DO  79#  I * 1.  1# 

738#  J * J ♦ 1 

739#  ENCODE  (FREC(I).  780)  GINSTC(J).  CDATAC(J).  CTIHC(J) 
74##  78#  FORMAT  (T19.  217.  F8.2) 

741#  79#  CONTINUE 

742#  CALL  NSEC  (CARD.  SECNO.  CONT) 

743#  IFU.EQ.2I)  CO  TO  795 

744#  SECNO  --  CONT 

745#  CO  TO  772 

746#  795  PRINT.  " ■ 

747#  PRINT,  " " 

748#  RETURN 


749#C 

75###  - - OUTPUT  HEADER. 

751#  84#  FORMAT  (1H«,  151,  "MAXIMUM  AVE  -—CURRENT  TOTAL", 

752#l  " MANUFACTURER'S  EST-",  /,  151, 

753#t  "ITERATION  TIME / TIME  INSTR  DATA  TIME", 

754#l  " INSTR  DATA",  /,  17X,  "RATE  CYCLE  MSEC/", 

755#t  "SEC  BYTES  BYTES  MSEC/SEC  BYTES  BYTES") 

756#C 

757#  988  PRINT,  "ERROR  RETURN  WHILE  READING  FROM  DATA  BASE." 

758#  CO  TO  94# 

759#  91#  PRINT,  "EOF  WHILE  READING  TEMP  FILE." 

76##  CO  TO  94# 

761#  92#  PRINT,  "I/O  ERROR  WHILE  READING  TEMP  FILE." 

762#  CO  TO  94# 

763#  93#  PRINT.  "I/O  ERROR  WHILE  WRITING  TO  TEMP  FILE." 

764#  94#  PRINT,  "RETURNING  TO  MAIN  PROGRAM." 

765#  RETURN 

766#  END 


■ r wt  v. 


•xj 


SUBROUTINE  SELREC 


IffICSELREC  SELECT  RECORDS. 

lilf 

SUBROUTINE  SELREC 

1828C 

1131 

CHARACTER  FNAHE*4,  DATES*8(3) . CARD«458,  REC*98(5>, 

18484 

STSC0D#2(40),  STSNANf 12(48),  FL1»1, 

18584 

SEL»1/»S»/,  CEE*1/,C* /,  ANS*3 , BUFFM58, 

urn 

SREC*98(5) 

II7K 

1181 

INTEGER  SECNO.  LSIZEi  DIR(3)>  1NF0I31*  DATAS13) t 

11914 

CONT,  DSSEC(48),  DESEC (48),  0NSEC(48), 

11114 

NOEL (48),  OLSEC,  RNUN,  TSEC 

tlliC 

1128 

LOCICAL  H1T/.F./,  REFIND/.F./i  UINFO 

U3IC 

1141 

EQUIVALENCE  (CARDt  REC(1>>,  (BUFF,  SREC(D) 

U58C 

1148 

COMMON  /RISC/  DIREUPt  INFOUP,  DATAUP,  UINTJ,  NSEL 

1178C 

1181 

CONNON  /IDSEC/  FNAHE,  DATES,  LSIZE,  DIR,  INFO,  DATAS,  RNUN 

119IC 

1ZM 

CONNON  /DRSEC/  STSCOD,  STSNAN,  OSSEC,  DESEC,  DNSEC,  NOEL 

1218C 

1ZZI 

IF ( .NOT.  NINFO)  CO  TO  15 

1231 

PRINT, 

"DO  TOU  WANT  SELECTION  INSTRUCTIONS  (T  OR  N)?H 

1241 

READ,  ANS 

1Z5# 

IF(ANS.EQ.’T’)  GO  TO  18 

1248 

UINFO 

■ .F.l  CO  TO  15 

1271  11 

PRINT, 

"THIS  ROUTINE  SELECTS  RECORDS  FROM  THE  DATA  BASE" 

1281 

PRINT, 

"AND  UNITES  THEN  TO  THE  SIHSIZ  TENP  FILE." 

1291 

PRINT, 

"THE  FILE  HAT  THEN  BE  LISTED  OR  RECORDS  NAT  BE  “ 

1311 

PRINT, 

"MODIFIED,  DELETED,  OR  RUN  THRU  THE  SIZING" 

1311 

PRINT, 

"FUNCTION.  THIS  ROUTINE  CIVES  TOU  THE  OPTION" 

1321 

PRINT, 

"OF  CHOOSING:" 

1338 

PRINT, 

* N - NEU  SELECTION  - SELECT  RECORDS  BASED  ON" 

1341 

PRINT, 

" NEU  SELECTION  CRITERIA,  PLACE  THEN  ON  THE" 

I3SI 

PRINT, 

" TENP  FILE,  AND  NARK  THEN  AS  SELECTED  IN" 

1348 

PRINT, 

" THE  DATA  BASE.  ANT  RECORDS  IN  THE  DATA" 

1371 

PRINT, 

" BASE  HHICH  DO  NOT  NEET  THIS  NEU  CRITERIA," 

1388 

PRINT, 

" EVEN  IF  THET  HERE  PREVIOUSLY  NARKED  AS" 

1398 

PRINT, 

" SELECTED,  ARE  DE-SELECTED  IN  THE  DATA" 

1488 

PRINT, 

" BASE." 

1418 

PRINT, 

N N 

1428 

PRINT, 

" P * PREVIOUS  SELECTION  - LOAD  THE  TENP  FILE" 

1438 

PRINT, 

" UITH  RECORDS  UHICH  HAD  PREVIOUSLT  BEEN" 

144# 

PRINT, 

" SELECTED  FROM  THE  DATA  BASE." 

1458 

PRINT, 

N N 

1448 

PRINT, 

" E - END  PROCESSING  • RETURN." 

1471  PRINT.  “ M 

1481  UINFO  * .T. 

149*  15  PRINT.  "ENTER  E (END).  I (INSTRUCTIONS).  N (NEW) 
15fK  "P  (PREVIOUS)." 

1511  READ.  ANS 

1521  REFIND  = .F. 

1531  IF (AMS.EQ. ' I * ) CO  TO  II 

1541  IF(ANS.EO.'N')  GO  TO  17 

1551  IF  (ANS. ED. ’PM  REFIND  * .T. 

154#  IF (ANS.EQ. *E* ) RETURN 

1571  IF ( .NOT.  REFINO)  CO  TO  15 

1581  GO  TO  21 

1590C 

141*  - • OBTAIN  NEU  SELECTION  CRETERIA. 

Mil  17  CALL  CRITER 

1421*  • - CREATE  AND  ATTACH  TEHP  FILE. 

1431  21  lF(NSEL.CE.i)  CO  TO  23 

1441*  - • DESIRED  FILE  CODE. 

1451  LCU  : 21 

1441*  - - SIZE.  IN  WORDS.  FOR  TEHP  FILE. 

1471  1SIZE  * 321  * LSIZE 

1488*  • • ASK  FOR  RANDOM  HASS  STORACE  FILE. 

1491  HOOE  • 1 

17M  CALL  CREATE  (LCU.  ISIZE.  RODE.  1STAT) 

1711  IFUSTAT.ED.I  .OR.  ISTAT.EQ.5)C0  TO  23 

1721  PRINT.  "ERROR  RETURN  FROM  CREATE  CALL." 

1731  PRINT.  "ERROR  CODE  ISTAT 

1741  PRINT.  "RETURNING  TO  HAIN  PROCRAH." 

1751  RETURN 

1741*  - - REWIND  TEHP  FILE. 

1771  23  NSEL  = I 

1781  IC  = li  TSEC  * 1 

1791  CALL  RANSIZ  (21.  75.  I) 

18f|C 

1811  DO  51  I * 1.  DIR (3) 

1821  SECNO  ; OSSEC(I) 

183IC 

1841  DO  41  J : I.  ONSEC(I) 

1851  CALL  RSEC  (CARD.  SECNO.  CONT.  49M) 

1841  HIT  * .F. 

187K 

1881  DO  35  K s 1.  5 

1891  DECODE  (REC(K).  25)  FL1 

19M  25  FORMAT  (T2.  Al) 

1911  IF(FLl.E8.f  » .OR.  FLl.EO.’D')  CO  TO  35 
1921  IF (.NOT.  REFIND)  CO  TO  24 
1931  IFtFLl.EO.'SM  CO  TO  28 

1941*  - - PRESS  ON  WITH  SEARCH. 

1951  CO  TO  35 

1941  24  CALL  EVAL  (REC(K).  ISTAT) 

1971  1F( ISTAT. Efl.l)  CO  TO  33 

I9II*  - - HARK  RECORD  FOR  SELECTION. 
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1991  ENCODE  (REC(K).  25)  SEL 

2#M  28  HIT  » .7. 

2118*  - - TRANSFER  RECORD  TO  OUTPUT  BUFFER. 

2121  1C  * 1C  ♦ I 

2831  SREC(IC)  * REC(K) 

2848  IF(IC.LT.S)  CO  TO  38 

2858*  - - WRITE  BUFF  TO  TEHP  FILE. 

2848  WRITE  <28'TSEC,  ERR=S88)  BUFF 

2878  1C  * 8 

2888  TSEC  * TSEC  ♦ 1 

2898  IF1TSEC.LT.425)  CO  TO  38 

2188  PRINT.  "TEHP  FILE  IS  FULL.  TERHINATINC  SELECTION." 

2118  NSEL  * NSEL  * li  CO  TO  78 

2128*  - • INCREMENT  SELECTED-RECORD  COUNTER. 

2138  38  NSEL  - NSEL  * 1 

2148  CO  TO  35 

2158*  - - HARK  AS  NOT  SELECTED. 

2148  33  ENCODE  (REC(K).  25)  CEE 
2178  HIT  * .T. 

2188  35  CONTINUE 

2198  IF(CONT.E0.8>  CO  TO  37 

2288*  - • SAVE  OLD  SECTOR  NUMBER. 

2218  OLSEC  * SECNO 

2228  SECNO  * CONT 

2238  37  1F(. NOT.  HIT)  CO  TO  48 

2248*  - - WRITE  NARKED  RECORDS  BACK  TO  FILE. 

2258*  RESET  SECNO  BEFORE  WRITE. 

2248  I F<C(HtT. KE.il  SECNO  * OLSEC 

2278  CALL  NSEC  (CARD.  SECNO.  CONT) 

2288  SECNO  * CONT 

2298  48  CONTINUE 

2388  58  CONTINUE 

2318  PRINT  48.  NSEL 

2328  48  FORMAT  (II.  "SEARCH  OF  DATA  BASE  COHPLETE."./.  II. 
23381  14.  " RECORDS  SELECTED.") 

2348  IF (NSEL. EQ. 8)  CO  TO  78 

2358  IFdC.EQ.8)  CO  TO  78 

2348  WRITE  (28'TSEC.  ERR=888)  BUFF 

2378  78  RETURN 

2388C 

2398  888  PRINT,  "ERROR  RETURN  WHILE  WRITING  TO  TEHP  FILE." 

2488  CO  TO  918 

2418C 

2428  988  PRINT,  "EOF  WHILE  READINC  DB  IN  SELECT." 

2438  918  PRINT,  "TERHINATINC  FUNCTION." 

2448  RETURN 

2458  END 
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IfMCSIHBLD 

IIIK 


SUBROUTINE  SIHBLO 

1 INITIALIZE  HEAOER  FOR  DATA  BASE  FILE. 
SUBROUTINE  SINBLD 


I . 


CHARACTER  FNANE*6,  DATE$#8(3),  CAR0M5I/'  •/,  ATCH*2I, 
T0DAH8,  STSCOD«2(4l),  STSNAAH12M0)  • 
NAHM2I27),  C0D*2(27>.  CPUC*2I15),  CPUN*8d5), 
LANCCMdl).  LANCN*8df)>  SINCOD»1 121) , 
SIHMN*8(2I) 

INTEGER  SECNO,  LSIZE.  DIRI3).  INFOI3),  DATASI3) t 
CONT.  DSSEC (4#) t DESEC (41),  DNSEC(4I), 

NOEL (40) • RNUH.  NDIR/27/,  SIHTlTdl) 

REAL  CPUS  (IS)  i CPUT(IS)  • LANCSdl),  SIHFAC  (2i) 

LOGICAL  DIREUP.  INFOUP,  DATAUPt  UINFO 

COMMON  /HISC/  DIREUP.  INFOUP.  DATAUP.  UINFO.  NSEL 

COMMON  /IDSEC/  FNANE.  DATES.  LSIZE.  DIR.  INFO.  DATAS.  RNUH 

COMMON  /INSEC/  CPUC.  CPUN.  CPUS.  CPUT.  LANCC.  LANGN.  LANGS 

COMMON  /INFOS/  SINCOD.  SIHNAM.  SIHFAC.  S1NTXT 

COMMON  /DRSEC/  STSCOD.  STSNAM.  DSSEC.  DESEC.  DNSEC.  NDEL 


1288 

DATA  COD/’AC’. 

’AP»» 

'AS', 

'AV't 

'CD', 

'CM', 

12914 

»CN’» 

'CR'» 

•DF’, 

'EC', 

'EP’t 

'EV, 

I3MI 

'EU'. 

'FC, 

»FS’, 

'CP', 

»HD’» 

'IN’, 

131ft 

'LC». 

’HO’, 

'NV, 

'RD', 

'SE’t 

'SS', 

13214 

'TC, 

’VR», 

'VS'/ 

DATA  NAN/ 'AURAL  CUES  • 
'AVIONICS  ' 
'COMP, NON-REA' 
'ENCINE(S)  ' 
'ELEC  UARFARE' 
'CROHTH  PROVI' 
'LANDING  GEAR’ 
'RADAR  ' 
'TACTICS  ' 


AUX/EXT  POUR' 
COCPIT  DISPL’ 
COMP. REAL  TI' 
ELEC  POUER  ’ 
FLT  CONT  SUR' 
HTDRAULICS  ' 
NOTION  ’ 
SIN  ENVIRONT' 
VIS, REAL  TIM’ 


'ARNA/STORES  ', 
'COMMUNICATOR', 
'DATAFILES 
'ENVIRONMENT', 
'FUEL  STSTEHS’, 
'INSTRUCTIONL', 
'NAVIGATION  ’. 
'SPECL  STSTHS’, 
'VIS,  SUPPORT’/ 


CHARACTER  CPUCB#2d5>.  CPUNB«8(1S),  LANCCBMdB), 

LANGNB«8(lf),  SINCODBM  (21) , SINNAMB*8(2f) 

REAL  CPUSBdSI,  CPUTBdSI,  LANCSBdf).  SINFACB(2f) 
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.4 


INTEGER  SIHTXTD(Z0) 


r 


• 

i 


f ! 


147K 
1481 
149IC 

1511  DATA  CPUCB  /'VIS  *U2'»  'BIS  »U3» . 'IMS  'B2S  >V5S 
151ft  'HIS  'U4S  6 * 1H  /. 

152ft  CPUN8  /'SEL  848  S 'SEL  848AS  'INTERDATS  'SEL32/35S 

153ft  ' HARRIS/5 S ’UNITY  S 'SEL32/55S  'MULTI  BIS 

154ft  'INTR32/?'.  4 ♦ 1H  /* 

155ft  CPUSB  / 3 . f i 3. ft  l.ft  4. ft  3.ft  l.ft  4. ft  S.f • 4. ft 

154ft  4 * B.ff/t 

157ft  CPUTB  / 15  « l.f/ 

158fC 

159f  DATA  LANGCB  /' FS  'AS  »C't  »PS  'US  'US  »DS  3 ♦ 1H  / 1 
Ufft  LANCIA  /’FORTRANS  'ASEHBLERS  'CHAPS  'PLACES 

141ft  'NIIED’t  'UNKNOWNS  'DATAONLTS  3 * 1H  It 

142ft  LANCSB  /If* l.f/ 

143fC 

144f  DATA  SIHCODB  /'AS  'BS  'CS  'OS  'ES  'JS  'HS  13  « 1H  I, 
145ft  SIHNAHB  /'C-141S  »C-5S  'C-138S  'C-14ICPTS  'C-5CPTS 

144ft  'F-14S  'A-lflS  13  ♦ 1H  /, 

147ft  SIHFACB  /2f  # l.f/t 

148ft  SIHTITB  /2f  * 8/ 

1498C 

17lfHlti«tHHIHIHHHIH<HHIHtlH<HHHHHHHHHH<H< 

I718C 

172f  PRINT.  “ENTER  THE  CAT/FILE  STRING  FOR  THE  FILE  TO  BE  "t 

173ft  “BUILT.  END  WITH 

1748  READt  ATCH 

1758  CALL  DETACH  (1ft  ISTATt) 

1748  CALL  ATTACH  (1ft  ATCHt  3t  lit) 

1778  CALL  RANSIZ  (1ft  74t  1) 

1788C 

1798  PRINTt  "PLEASE  ENTER  FILE  SIZE  IN  LL1NKS." 

18ff  READt  LSIZE 

1818*  - • COHPUTE  NUMBER  OF  SECTORS  TO  ERASE. 

182f  NUMB  * (LSIZE  « 3281/74 

1838  IF (NUHB.CT.4f ) CO  TO  8 

1848  PRINT  4t  LSIZEr  NUHB 

1858  4 FORMAT  (II.  “A  FILE  SIZE  OF  “.  13.  " LLINKS  YIELDS  ONLTS 
184ft  I3t  “ USEABLE  SECTORS. “t/t  "SIHS1Z  REQUIRES  AT  “t 

187ft  “LEAST  48  SECTORS  TO  FUNCTION.") 

I88f  RETURN 

1898C 

1988*  - - CLEAR  OUT  FILE  SPACE. 

191f  8 DO  If  I * It  NUHB 

1928  SECNO  * I 

1938  CALL  NSEC  (CARD.  SECNO.  f> 

1948  If  CONTINUE 
19S8C 

1948  PRINT.  "ENTER  A 4-CHARACTER  NAME  FOR  THIS  DATA  BASE." 

1978  READt  FNAK 

1988  CALL  DATIN  (TODAT.  HRS) 
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-• 


1991 

2fff 

2111 

2l2f«  • • 

2131 

2141*  • - 

2151 

2t4f*  • • 

2171 

2080*  • • 

2191 

2100*  * - 
2111 

2121*  - • 

2131 

2141* 

215* 

214f*  - - 
2171 

2181*  - - 
219# 

22MC 
2211*  - - 
2221 

223#*  - - 
2241 
2250 
lUt 
2271 
2281 
2291 
2300 

2311  Iff 

232fC 

2330*  - - 

2340 

233f 

234f 

237f 

2380 

239f 

2400 

2410  12f 

242fC 

243f*  - - 

2440 

245f 

246f 

2470 

248f 

249f 

25ff 


DATES! 1)  * TODAY 
DATES (2)  * TODAT 
DATES (3)  * TODAT 
DIRECTOR!  STARTING  SECTOR. 

DIR(l)  * 2 

DIRECTORY  SECTORS  ALLOCATED. 

DIR (2)  * 3 

CURRENT  NUMBER  OF  DIRECTOR!  ENTRIES. 
01RI3)  « 1 

INFO  STARTING  SECTOR. 

INFO(l)  * 4 

NUMBER  OF  INFO  SECTORS. 

1NF0I2)  « 3 

CURRENT  NUMBER  OF  INFO  ENTRIES  IN  TABLE. 
INF0I3)  * 7 

STARTING  SECTOR  OF  DATA. 

DATAS(l)  * 9 
DATA  SECTORS  ALLOUED. 

DATAS(Z)  * NUMB  - DATAS(l) 

NEIT  AVAILABLE  DATA  SECTOR. 

DATAS43)  * 9 

SET  NUMBER  OF  RECORDS  CURRENTLY  ON  FILE. 
RNUM  * f 

CLEAR  DIRECTOR!  SECTION. 

DO  Iff  I Mi  4f 
STSCODU)  * 1 » 

STSNAH(I)  * * » 

DSSEC(I)  * f 
KSEC(I)  * f 
DNSEC(I)  * f 
NDEL(I)  * f 
CONTINUE 

LOAD  DIRECTOR!. 

DO  I2f  1 * 1.  NOIR 
STSCOD(I)  « COD ( I ) 

SYSNAHdl  * NAMlI) 

DSSEC(I)  * DATASI3) 

DESEC (I)  * DATAS43) 

DAT  AS ( 3 ) * DATASI3)  * 1 
DNSEC(I)  * 1 
CONTINUE 

LOAD  COMMON  INSEC. 

BO  131  I * 1.  15 
CPUC(I)  * CPUCB(I) 

CPUN(I)  = CPUNB(I) 

CPUS ( I ) * CPUSB(I) 

CPUT(I)  * CPUTB(I) 

IF (I .GT . If)  GO  TO  13f 
LAMGC(I)  * LANGCB(l) 

17B 


2511 

2521 

2531  131 
254K 
2551*  - - 
254# 

2571 

258# 

259# 

24#< 

241#  14# 

242#C 

243# 

2448*  - - 
2451 
2440C 
247# 

248# 

249# 


LANGN(I)  = LANGNB(I) 

LANCS ( I ) * LANGSB(I) 

CONTINUE 

LOAO  COMMON  INFOS. 

DO  14#  I * 1.  2# 

SINCODd > * SIHCODB ( I ) 

SIMNAM(I)  * SIMNAHB(I) 

SIMFAC(I)  * SINFACB(I) 

SIHTXT(I)  * SINTXTB(I) 

CONTINUE 

0IR(3)  * NDIR 

WRITE  ID  AND  DIRECTORY  COMMONS  BACK  TO  DATA  BASE. 
CALL  RUHEAD(2) 

PRINT,  "BUILD  PROCESSING  COMPLETE." 

RETURN 

END 


SUBROUTINE  ST2AR 


IfffCSTZAR  ROUTINE  TO  CONVERT  STRINGS  TO  ARRATS. 

IflK 

!«2f  SUBROUTINE  STZAR  (ANSU.  NODE.  FCt  *.  *1 

1I3K 

II4IC  NODE: 

IKK  1 * READ  ALL  3 TTPES  OF  DATA. 

1#4K  Z * READ  RECORD  NUMBERS  ONLY. 

1I7K  3 * READ  FllD  NUMBERS  ONLY. 

INK  4 * READ  FILE  VALUES  ONLY. 

INK 

I1MC  Fff 

1 1 IK  FILE  CODE  TO  USE  FOR  READING  ADDITIONAL  DATA. 

UZK 

II3K  1ST  ALTERNATE  RETURN: 

I14K  REREAD  INPUT  DATA. 

I1SK 

U4IC  ZNO  ALTERNATE  RETURN: 

117K  EOF  ON  RE  AO  FILE. 

I18K 

119#  CHARACTER  ANS1U84.  HOLD*3f.  F0RMU5/MI  )»/.  TENP*1/'  '/. 

12##t  STR*8(1S)>  LSTR»3#.  OUOTEM/1H'/.  BLANKS*8/'  »/t 

IZlfl  LBLNK»3f/*  "/.  NULL*4/’»NULL*'/ 

I22K 

1Z3#  INTEGER  APt  RP.  FP.  SPt  REC(Z«).  FLO ( 15) t HP.  FC 
124K 

1251  LOGICAL  RF.  FF.  SF.  OF.  DASH.  SEHI.  DONE.  RDR.  RDF.  RDT. 

124ft  EARLT 

1Z7K 

1Z8#  COMMON  /ARRATS/  RP.  REC.  FP.  FLD.  SP.  STR.  LSTR.  NFLDS 
INK 

13H*  - - RESET  POINTERS. 

1311  NSPKE  * f 

13ZI  AP  * 15  HP  * II  OF  * .F.J  EARLT  * .F. 

1331  RF  * .F.J  FF  * .F.J  SF  * .F.S  DONE  * .F.i  SENI  = .F. 

1341  DASH  * .F.i  RDR  * .F.i  RDF  > .F.i  RDT  * .F. 

135#  IF (NODE. GT. 4)  RETURN 

1341  GO  TO  (1.  2.  3.  4).  NODE 
1371  1 RF  * .T.i  CO  TO  5 

ISM  2 RF  * .T.i  RDR  * .T.i  GO  TO  5 

134#  3 FF  * .T.i  RDF  * .T.i  CO  TO  8 

14M  4 SF  * .T.i  ROT  * .T.i  GO  TO  12 

141#  5 N 7 I * 1.  2# 

142#  7 REC  ( I ) * • 

143#  RP  < f 

144#  IF  (RDR)  GO  TO  2# 

145#  8 00  I#  I * 1.  15 

144#  if  FUHI)  « • 
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1471  FP  * I 

1481  IF (RDF)  CO  TO  21 

1498  12  DO  14  I * I.  IS 

15M  14  STR(I)  * BLANKS 

1511  SP  • I 

1521  LSTR  * NULL 

1531  21  AP  * AP  * 1 

1541  IFIAP.LE.84)  CO  TO  25 

155f«  • - READ  CONTINUATION  OF  STRINC. 

1541  21  READ  (FCi  22.  EHD=295)  ANSU 

1571  22  FORMAT  (A84) 

1588  AP  - 1 

1598*  - • EXTRACT  NEXT  CHARACTER. 

1488  25  CALL  CONCAT  (TEMP,  1.  ANSU.  AP.  1) 

1418  IFITEHP.EO.'.')  CO  TO  288 

1428  IF (TEHP.EQ. *-* ) CO  TO  288 

1438  IFITEHP.EO. * » 1 ) CO  TO  388 

1448  IFITEHP.EO.'IM  CO  TO  388 

1458  IFIRF  .OR.  FF)  CO  TO  488 
1448*  - - MUST  BE  IN  STRINC  SECTION. 

1478  IF (TEHP.EQ. QUOTE)  CO  TO  188 
1488  IF(TEHP.EQ.’M»)  CO  TO  188 

1498  IFITEHP.EO. 1 • .AND.  (.NOT.  QF))  CO  TO  148 
1788  85  CALL  CONCAT  (HOLD.  HP.  TEHP.  1.  1) 

1718  HP  * HP  ♦ 1 

1728  1FIHP.LT. 31)  CO  TO  28 

1738  EARLY  * ,T. 

1748*  • - HAVE  REACHED  END  OF  HOLD  VARIABLE.  HOVE  IT  TO  LSTR. 

1758  98  LSTR  * HOLD 

1748  SP  * SP  * 1 

1778  92  HOLD  - LBLNKI  HP  > 1 

1788  NSPACE  * 8 

1798  IF(SEHI)  CO  TO  348 

1888  IF (DONE)  CO  TO  95 

1818  CO  TO  28 

1828  95  IF(NFLDS.EQ.R)  CO  TO  97 

1838  IF(SP.EQ.IFLDS)  RETURN 

1848  CO  TO  99 

1858  97  IF(SP.EQ.FP)  RETURN 

1848  99  DONE  * .F. 

1878  CO  TO  21 

1888C 

1898*  - - HAVE  FOUND  A QUOTE. 

1988  IN  IF(QF)  CO  TO  118 
1918*  - * BEGUN  INC  OF  QUOTE. 

1928  QF  * .T.J  CO  TO  28 

1938*  - - END  OF  QUOTE. 

1948  118  QF  * .F. 

1958*  - - CHECK  FOR  PRENATURE  TERHINATKM  OF  STRINC  AT  38  CHAR. 

1948  IFt.NOT.  EARLT)  CO  TO  115 

1978  EARLT  * .F. I CO  TO  92 

1988*  - - CHECK  FOR  LONC  FIELD  STRINC  (FLO  15). 
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mi  US  1FIHP.CT.9)  CO  TO  91 

2IM*  • - PLACE  HOLD  STRINC  IN  NEXT  AVAILABLE  SLOT. 

2111  121  1F1HP.LT.2)  CO  TO  92 
2121  1F1.NOT.  EARLY)  CO  TO  125 
2131  EARLY  * .F.i  CO  TO  92 
2141  125  SP  * SP  ♦ 1 
2151  IF(SP.LE.15)  CO  TO  131 

2141  PRINTi  "TOO  MANY  STRINC  VARIABLES.  RE-INPUT  DATA." 

2171  RETURN  1 

2NI  131  CALL  CONCAT  CSTR(SP).  It  HOLD*  It  HP  - 1) 

2191  CO  TO  92 
21M  141  NSPACE  * NSPACE  ♦ 1 
2111  IF (NSPACE.LE.3)  CO  TO  21 
2121  DONE  * .T. 

2131  IFdtF  .OR.  FF)  RETURN 

2141  CO  TO  115 

215IC 

2UC*  - - HAVE  FOUND  COMA. 

2171  2M  IF(RF)  CO  TO  221 

2181  IF(FF)  CO  TO  221 

2191  IF(QF)  CO  TO  85 

22M«  - - RUST  BE  SEPERAT1NC  STRINC  VALUES. 

2211  IF (HP.CT.l)  CO  TO  121 
222H  • • IGNORE  IT. 

2231  CO  TO  21 
2241*  - - DECODE  AND  STORE. 

2251  221  IF (HP.CE.2I  GO  TO  222 

224#  PRINT.  "CONSECUTIVE  COMAS  IN  'RECORD1  OR  'FIELD*  SECTION." 

2271  PRINTt  "IGNORE  SECOND  CHARACTER." 

2281  CO  TO  21 

2291  222  ENCODE  (FORHti  225)  HP  - 1 

23M  225  FORMAT  (T3.  12) 

2311  1F(FF)  GO  TO  251 

2321  RP  * RP  ♦ 1 

2331  IF(RP.LE.ZI)  CO  TO  231 

2341  PRINTt  "TOO  MANY  RECORD  VARIABLES.  OVERURITINC  LAST  VARIABLE." 
2351  RP  * 21 

2341  231  DECODE  (HOLD.  F0RN1)  REC(RP) 

2371  IF(DASH)  CO  TO  235 
2381  IFITEHP.EQ.'-')  DASH  * .T. 

2391  CO  TO  92 

24M  235  REC(RP)  « -REC(RP) 

2411  DASH  * .F. 

2421  CO  TO  92 

2431  251  FP  * FP  ♦ 1 

2441  IF(FP.LE.IS)  CO  TO  241 

2451  PRINTt  "TOO  MANY  FIELD  VARIABLES.  OVERURITINC  LAST  VARIABLE." 
2441  FP  * 15 

2471  241  DECODE  (HOLD.  FORN1)  FLD(FP) 

2481  CO  TO  92 

2490C 

2SM*  - - HAVE  FOUND  DASH. 
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2511  280 
2520 
2530 
2540 
mi  290 
2560C 
2570  295 
2580C 
2590*  - - 
2600  300 
2610 
2620 
2630 

2640  340 
2650 
2660 
2670 
2680  345 
2690  350 
2700 
2710C 
2720*  - - 
2730  380 
2740 
2750 
2760 
2770 
2780 
2790 
2800C 
2810*  • - 
2820  400 
28306 
28406 
28506 
2860 
2870 


IFIRF)  CO  TO  220 
IFI.NOT.  FF)  60  TO  85 

PRINT.  "THE  IS  NOT  PERNITTED  IN  THE  FIELD  DESIGNATOR  STRING. 
PRINT.  "EACH  FIELD  TO  IE  MODIFIED  RUST  BE  IDENTIFIED  SEPERATELT. 
RETURN  1 

RETURN  2 

HAVE  FOUND  »?». 

IF!  OF)  CO  TO  85 
SENI  * .T. 

IFIRF  .OR.  FF)  CO  TO  222 
CO  TO  20 
IF(FF)  CO  TO  345 
IFIRF)  RF  = .F. 

FF  * .T. 

CO  TO  350 

FF  * .F.!  SF  * .T. 

SENI  * .F. 

60  TO  20 

HAVE  FOUND  ’0*.  END  OF  INPUT  STRINC. 

IF (OF)  CO  TO  85 
DONE  * .T. 

IFIRF  .AND.  HP.GE.2)  CO  TO  222 
IFISF  .AND.  HP.GE.2)  CO  TO  120 
IF 4 .NOT.  FF)  RETURN 

PRINT.  "PRENATURE  TERHINATION  NARK  IN  FIELD  DESIGNATOR  STRINC." 
RETURN  1 

CHECK  TO  SEE  IF  CHARACTER  IS  A LEGITIMATE  NUNBER. 

IF (TERP.EQ. *0*  .OR.  TENP.EQ.'l'  .OR.  TENP.E0.*2*  .OR. 

TENP.EQ.*3»  .OR.  TENP.EQ.M'  .OR.  TENP.EQ.»5'  .OR. 

TEHP.Ea.'S*  .OR.  TENP.EG. *7’  .OR.  TEHP.E0.'8»  .OR. 
TEHP.EQ.'VM  CO  TO  85 
IFITEHP.E8.’  ’ .AND.  HP.GE.2)  CO  TO  222 
IFITENP.EQ.'  ' .AND.  (RDR  .OR.  RDF))  CO  TO  140 
20 


SUBROUTINE  TNOD 


II 


i- 


i 


v 

«s 


1HICTNOD 

IflK 

1120 

103IC 

1140 

1«SM 

1040C 

1070 

1080C 

1090 

U00C 

1110 
I120C 
1130 
U40C 
1150 
1140C 
1170 
1180G 
1190C 
1200 
1210 
1220 
1230  20 
1240 
1250 
1240 
1270 
1280 
1290 
13N  25 
1310 
1320 
1330 
1340 
1350 
1340 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1440 


TEHP  FILE  MODIFIER  ROUTINE. 

SUBROUTINE  TNOD 

CHARACTER  ANSW*84,  LSTR*30.  STR*8(15).  ANS*1.  BUFFM50. 
SREC»90(5)r  TENP»1 

INTEGER  SECNOt  FC.  RP*  FP.  SP.  RECI20I.  FLD(15)*  RN 
LOGICAL  DIREUPt  INFOUP.  DATAUPi  UINFO.  SERIES 
EQUIVALENCE  (BUFF . SREC(ll) 

COMMON  /NODBUF/  BUFF 

COMMON  /RISC/  DIREUPi  INFOUP.  DATAUP.  UINFO.  NSEL 
COMMON  /ARRAYS/  RP.  REC.  FP.  FLO.  SP.  STR.  LSTR.  NFLDS 


IF (NSEL.GT .0)  CO  TO  20 

PRINT.  "THERE  ARE  NO  RECORDS  ON  THE  TEHP  SELECT  FILE." 

RETURN 
SERIES  * .F. 

NFLDS  * 0 

IF (.NOT.  UINFO)  CO  TO  40 

PRINT.  "INSTRUCTIONS  [THEY  ARE  LONC]  (T  OR  Nl?" 

READ.  ANS 

lF(ANS.EQ.'Y')  CO  TO  25 
UINFO  * .F.I  CO  TO  40 
UINFO  * .T. 

PRINT.  "THIS  ROUTINE  HILL  MODIFY  (OR  DELETE  HARK)  ONE  OR  MORE" 
PRINT.  "RECORDS  UHICH  HAVE  BEEN  PLACED  ON  THE  'TEMP'  " 

PRINT.  "FILE.  IF  YOU  HAVE  NOT  ALREADY  PLACED  RECORDS  ON  THE" 
PRINT.  "TEMP  FILE.  DROP  BACK  TO  THE  'FUNCTION?'  LEVEL  AND  CHOOSE" 
PRINT.  "THE  SELECT  (S)  FUNCTION.  ■ 

PRINT.  " " 

PRINT.  "RECORDS  ON  THE  TEMP  FILE  NAY  BE  MODIFIED  (OR  DELETED!" 
PRINT.  "INDIVIDUALLY  OR  IN  CROUPS  OF  CONTIGUOUS  RECORDS." 

PRINT.  "TIC  RECORDS  TO  BE  MODIFIED  (OR  DELETED)  ARE  DESIGNATED" 
PRINT.  "WEN  YOU  ENTER  A CONTROL  STRINC  OF  THE  RECORD  NUMBERS" 
PRINT.  "YOU  UISH  TO  MODIFY  (DELETE).  I.E..  ENTERING  THE  STRINC" 
PRINT.  " 1.  4.  8.  74.  100-123.  127  " 

PRINT.  "MOULD  INDICATE  THAT  YOU  WANT  TO  MODIFY  RECORDS  1.  4.  8." 
PRINT.  "74.  100  THRU  123.  AND  127  ON  THE  TEHP  FILE.  A DASH" 
PRINT.  "BETWEEN  NUMBERS  MEANS  'INCLUSIVE'  AND  HILL  CAUSE  ALL- 
PRINT. "RECORDS.  STARTING  AT  THE  FIRST  RECORD  NUMBER  AND  ENDING" 


i 
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PRINT.  "WITH  THE  SECOND  NUMBER.  TO  BE  CHOSEN  FOR  MODIFICATION" 
PRINT.  "(DELETION)." 

PRINT.  " " 

PRINT.  "THE  FIELDS  (UITHIN  RECORDS)  TO  BE  MODIFIED  ARE  CHOSEN- 
PRINT.  "BT  ENTERING  THE  NUMBERS  OF  THE  DESIRED  FIELDS.  THE  FIELD- 
PRINT.  "VALUES  RANGE  FROM  i TO  18  AND  ARE  THE  SANE  FIELDS" 

PRINT.  ‘DESCRIBED  IN  THE  ADD  ROUTINE  INSTRUCTIONS  PLUS  THREE- 
PRINT.  "'FLAG'  FIELDS." 

PRINT.  "NOTE:  IF  THE  'FUNCTION  CODE'  (FIELD  Z)  FOR  A RECORD- 
PRINT.  "HAS  BEEN  MODIFIED.  IT  HILL  NOT  BE  POSSIBLE  TO  UPDATE" 
PRINT.  "THE  OLD  RECORD.  THE  ORIGINAL  (UN-MODIFIED)  RECORD(S)" 
PRINT.  "MUST  FIRST  BE  DELETED  FROM  THE  DATA  BASE.  THE  DELETE" 
PRINT.  "NARKED  RECORDS  ON  THE  TEMP  FILE  ARE  THEN  MODIFIED  BT" 
PRINT.  "CHANGING  THE  FUNCTION  CODE  TO  THE  NEU  VALUE.  THEN  THE" 
PRINT.  "MODIFIED  RECORD (S)  MUST  BE  ADDED  TO  THE  DATA  BASE  " 

PRINT.  "USING  THE  SIHSIZ  ADD  FUNCTION." 

PRINT,  “ " 

PRINT,  "DO  TOU  WANT  A LISTING  OF  THE  FIELD  NUMBERS,  FORMATS.  " 
PRINT.  "AND  CONTENTS  (T  OR  MIT- 
READ*  ANS 

IF(ANS.EQ.'N')  GO  TO  35 

PRINT,  "THE  CONTENTS  OF  RECORD  FIELDS  1 THRU  18- 
PRINT,  "ARE  AS  FOLLOHS:" 

PRINT,  "FIELD  FIELD- 

PRINT,  "NUMBER  FORMAT  DISCRETION" 

PRINT,  " 1 A1  SIMULATOR  CODE" 

PRINT,  " 2 A2  FUNCTION  CODE- 
PRINT, " 3 A2  SUBSYSTEM  CODE- 
PRINT. " 4 A8  MFC  MODULE  CODE" 

PRINT,  " 5 A1  PROGRAM  LANCUACE" 

PRINT,  " 6 F4.Z  TIMING  - MFC  EST" 

PRINT,  " 7 15  INSTR  - MFC  EST" 

PRINT,  " 8 15  DATA  - MFC  EST" 

PRINT,  "9  F5.1  CPS  - CURRENT" 

PRINT.  " 1<  F6.2  TIMING  - CURRENT- 

PRINT,  " 11  15  INSTR  - CURRENT" 

PRINT.  " 12  15  DATA  - CURRENT" 

PRINT,  " 13  12  TEAR  OF  UPDATE" 

PRINT,  " 14  A2  COMPUTER  STSTEH" 

PRINT,  " 15  A3f  COMMENTS  TEXT" 

PRINT,  " 14  A1  USER  FLAG  1" 

PRINT,  " 17  A1  USER  FLAG  2" 

PRINT,  " 18  A1  USER  FLAG  3" 

IF(ANS.EQ.'F')  CO  TO  4« 

PRINT,  " " 

PRINT,  "FOR  THE  DELETE  FUNCTION,  ONLY  THE  RECORD  NUNBER(S)  TO  BE" 
PRINT,  "DELETED  NEED  BE  SPECIFIED.  FOR  THE  MODIFY  FUNCTION,  TOU" 
PRINT,  "MUST  ENTER  THE  RECORD  NUMBERS))  FIELD  NUMBER(S) > AND" 
PRINT,  "NEU  FIELD  VALUES.  FOR  EXAMPLE:" 

PRINT,  " RN1,  RN2,  RN3I  FN1,  FN2,  FN3i  NFLDl,  NFLD2,  NFLD3" 

PRINT,  "IS  A GENERALIZED  INPUT  CONTROL  STRING  UHERE:" 

PRINT,  " - RN1,  RN2,  AND  RN3  REPRESENT  THE  NUMBERS  OF  THE  " 
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1991  PRINT*  ■ RECORDS  TO  BE  MODIFIED" 

2888  PRINT*  H - FN1*  FN2*  AND  FN3  ARE  THE  NUMBERS  OF  THE  FIELDS  TO" 

2111  PRINT*  " BE  MODIFIED*  IN  'EACH*  RECORD." 

2121  PRINT*  " - NFLD1*  NFLD2.  AND  NFLD3  ARE  CHARACTER  STRINGS  UHICH" 

2131  PRINT.  " MILL  REPLACE  THE  RECORD  FIELDS  SPECIFIED  BT  THE  " 

2141  PRINT.  * »FN»  NUMBERS." 

2151  PRINT*  "NOTE:  IF  THE  CHARACTER  STRINGS  CONTAIN  EMBEDDED" 

2141  PRINT.  "BLANKS  OR  SPECIAL  CHARACTERS  (.  I OR  -)  THE  STRINGS  MUST" 

2171  PRINT*  "BE  ENCLOSED  IN  QUOTES*  I.E.*  " 

2181  PRINT.  " 2*  7*  lfMlfl  3*  4.  11*  151  SD.  'NOD-21*.  2478*  'HAMS  2'" 
2198  PRINT.  ■ " 

2111  PRINT*  "A  SEMI-COLON  IS  USED  TO  SEPERATE  THE  RECORD  NUMBERS  " 

2111  PRINT.  "FROM  FIELD  NUMBERS*  AND  ALSO  FIELD  NUMBERS  FROM  FIELD" 

2121  PRINT.  "VALUES." 

213IC 

2148  48  PRINT.  "ENTER  D (DELE).  H (NOD).  F (FORMAT).  E (END).  L (LIST).". 
21581  " OR  KINSTRI." 

2148  READ.  AMS 

2178  lF(ANS.EQ.'M')  CO  TO  78 

2188  IF(ANS.EQ.'F')  GO  TO  38 

2198  IF(ANS.EQ.'I')  CO  TO  25 

2288  IF (ANS.EQ. 'D* ) CO  TO  42 

2218  IF (ANS.EQ. *Lf ) CO  TO  198 

2228  IF(ANS.EO.'E')  RETURN 

2238  CO  TO  48 

2248*  - • DELETE  RECORDS. 

2258  42  MODE  * 2 

2248  PRINT.  “ENTER  THE  NUMBERS  OF  RECORDS  TO  BE  DELETE  HARKED,  PREFERABLT" 
2278  PRINT,  “IN  ASCENDING  ORDER." 

2288  43  READ  45.  ANSU 

2298  45  FORMAT  (A84) 

2388  CALL  ST2AR  (ANSU.  2,  85,  $58.  $888) 

2318  CO  TO  48 

2328  58  PRINT,  "PLEASE  RE-ENTER  THE  RECORD  NUMBERS." 

2338  CO  TO  43 

2348  48  CALL  DARAT  (MODE) 

2358  PRINT.  “DO  TOU  WANT  TO  CHANCE  THESE  NUMBERS  (T  OR  Nl?" 

2348  READ,  ANS 

2378  IF (ANS.EQ. *Tf ) GO  TO  58 

2388  GO  TO  188 

2398C 

2488*  - - MODIFY  RECORDS. 

2418  78  NODE  » 1 

2428  PRINT,  "ENTER  THE  RECORD  NUMBERS!  FIELD  NUMBERS!  FIELD  VALUES." 

2438  75  READ  45.  ANSU 

2448  CALL  STZAR  (ANSU.  1,  85.  $88,  $888) 

2458*  - - CHECK  FOR  VALID  FIELD  NUMBERS. 

2448  DO  78  I • 1,  FP 

2478  IF(FLD(I).CT.8  .AND.  FLD(I) .LE.18)  CO  TO  78 

2488  PRINT  74,  FLD(I) 

2498  74  FORMAT  (IX, "FIELD  NUMBER". 13."  IS  OUTSIDE  THE  LIMITS  (1-18).") 

2588  CO  TO  88 
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2510  78  CONTINUE 

2520  CO  TO  90 

2530  80  PRINT » “PLEASE  RE-ENTER  THE  ENTIRE  CONTROL  STRING." 

2540  CO  TO  75 

2550  90  CALL  DARAT  (NODE) 

2540  PRINT*  "DO  TOU  WANT  TO  CHANGE  THESE  VALUES  (T  OR  N)9" 

2570  READ*  ANS 

2580  IF (ANS.EQ. * Y * ) CO  TO  80 

2590C 

2400*  - - SELECT  RECORDS. 

2410  100  IP  = 1 

2420  105  RN  * REC (IP) 

2430  IF(RN.LE.NSEL)  CO  TO  108 

2440  104  PRINT  107*  RN*  NSEL 

2450  107  FORHAT  (II*  "TOU  HAVE  SELECTED  RECORD  NUHBER  ",  14* 

24404  ".  THERE  ARE  ONLY  "*  14,  " RECORDS  ",/,"ON  THE  TEHP  FILE.") 

2470  CO  TO  80 

2480  108  IF (RN.GT.0)  CO  TO  110 

2490  IP  = IP  ♦ 15  CO  TO  105 

2700*  - - CONFUTE  SECTOR  CONTAINING  RECORD. 

2710  110  IREN  * H0D(RN*5) 

2721  SECNO  - RN  / S 

2730  IF (IREN.GT.0)  SECNO  = SECNO  ♦ 1 

2740  LREC  ; SECNO  * 5 

2750  IF ( IREN.EQ.0)  IREN  - 5 

2740#  - - READ  SECTOR  FRON  FILE  INTO  BUFF. 

2770  READ  (20'SECNO*  END=800*  ERR=850)  BUFF 

2780#  - - NARK  THE  RECORD  AS  EITHER  DELETED  <01  OR  MODIFIED  (HI. 

2790  120  TEHP  - »D» 

2800  IF (NODE.EQ. 1 ) TEHP  - »H» 

2810  CALL  CONCAT  (SREC(IREN) * 2,  TEHP*  1*  1) 

2820  2F(HODE.EQ.2>  CO  TO  140 
2830#  - - NODIFT  THE  RECORD  FIELDS. 

2840  CALL  RECHOO  (IREN) 

2850*  - • CHECK  THE  NEXT  RECORD  TO  BE  HODIFIED. 

2840  140  IF(SERIES)  CO  TO  170 
2870  IP  * IP  ♦ I 

2880#  - - CHECK  TO  SEE  IF  HE  HAVE  PROCESSED  ALL  THE  LIST. 

2890  IF(IP.CT.RP)  CO  TO  180 

2900#  - - EXTRACT  THE  NEIT  RECORD  NUHBER*  BUT  DON'T  WIPE  OLD  RN  TET. 

2910  IR  « REC  (IP) 

2920*  - - CHECK  TO  SEE  IF  NUHBERS  ARE  OUT  OF  ORDER. 

2930  IF ( IR.CT.0  .AND.  IR.LT.RN)  CO  TO  180 
2940  IF (IR.GT.0)  CO  TO  150 

2950*  - - A NEGATIVE  RECORD  NUHBER!  HEARS  DO  ALL  FRON  HERE  TO  IR. 

2940  IR  * -IR 

2970#  - - CHECK  TO  SEE  THAT  IR  IS  NOT  TOO  LARGE. 

2980  IF(IR.LE.NSEL)  CO  TO  145 

2990  RN  * IR 

3000  CO  TO  104 

3010#  - - CHECK  TO  HAKE  SURE  IR  IS  GREATER  THAN  RN.  IF  NOT,  SKIP  TO  NEIT  REC. 
3020  145  IFIIR.LE.RN)  CO  TO  140 
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1 


"MUMMi* 


3f3#  SERIES  > .T. 

3f4f  RN  * RN  ♦ I 

3151  CO  TO  161 

'taxi  iy  M * IB 

3171  IF(RN.LE.NSEL)  CO  TO  161 
3101  CO  TO  116 

3#?#*  - • CHECK  TO  SEE  IF  NEXT  RECORD  IS  IN  THIS  SECTOR. 

3IM  161  IF (RN.LE.LREC)  GO  TO  165 

3111*  • - WRITE  MODIFIED  SECTOR  BACK  TO  TEHP  FILE. 

3121  WRITE  (21'SECNO*  ERR=825)  BUFF 

3131  CO  TO  Ilf 

3141*  - - IT  IS  IN  THIS  SECTOR 

3151  165  IREN  * HODIRN*  5) 

316#  lFdREH.EO.il  IREN  « 5 

3171  CO  TO  121 

3181*  - • INCREMENT  RN  AND  SEE  IF  HE  HAVE  REACHED  IR  TET. 

3191  171  RN  * RN  ♦ 1 

32N  IFIRN.LE.IR)  CO  TO  161 

3211*  - * HAVE  CONFUTED  THAT  SERIES.  RESET. 

3221  SERIES  * .F.i  CO  TO  141 

3231*  - - WRITE  LAST  SECTOR  BACK  TO  TEHP  FILE. 

3241  18f  WRITE  (21'SECNO*  ERJN825)  BUFF 

3251  IFIIP.LE.RPICO  TO  115 

3261*  - - HAVE  FINISHED  NOBIFT INC/DELETINC  RECORDS. 

3271  PRINT i "HOIFT  (DELETE)  ACTION  CQHPLETE." 

3281  CO  TO  4f 

3291*  - - CALL  LISTR  SUBROUTINE.  SET  FUNCTION  CODE  FOR  1. 

33ff  19#  FC  * I 

3311  CALL  LISTR  (FC) 

3321  CO  TO  4f 

333K 

3341  8f#  PRINT,  "EOF  ON  TEHP  FILE  REAO." 

3351  CO  TO  86f 

3361  825  PRINT*  "ERROR  RETURN  WHILE  URITINC  TO  TEHP  FILE." 
3371  CO  TO  861 

3381  851  PRINT*  "ERROR  RETURN  ON  TEHP  FILE  REAO." 

3391  861  PRINT*  "TERNINATINC  FUNCTION." 

34N  RETURN 

3411  END 
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SUBROUTINE  UPMTE 


t###CUPDATE  HRITE  HOOIFIED/OELETED  RECORDS  FROM  TEMP  TO  DB. 

IflfC 

IfZB  SUBROUTINE  UPDATE 

1I3BC 

l#4#  CHARACTER  STSCOD*2(4#> r STSNAM#12(4#),  ANS»I,  CARDM5I. 
l#5ft  CRECt9f(S).  SC»2.  0$C*2,  TEHPM,  SF*i. 

lfift  BUFFMSD,  BREC*9«(S)>  FNAHE«4,  MTES*8(3) 

1B7BC 

IBM  INTEGER  SECNO,  TSECi  CONTt  DSSECI4#),  DESEC(4B)» 

IB9W  DNSEC(4#)»  NDEL<4#),  CP.  BP.  RNUH.  ORNUN.  DIR(3). 

110ft  INF0I3).  DATAS(3)>  BASER.  TREC 

111  AC 

U2B  LOGICAL  D1REUP.  INFOUP.  DATAUP.  UINFO.  CHANCE.  FIRST 

U3BC 

1141  EQUIVALENCE  (CARS.  CREC(ll).  (BUFF.  BREC(l)) 

115BC 

1141  COMMON  /RISC/  BIREUP.  INFOUP.  DATAUP.  HINFO.  NSEL 
1170C 

UN  COMMON  /IDSEC/  FNAHE.  DATES.  LSIZE.  DIR.  INFO.  OATAS.  RNUH 
119BC 

12N  COMMON  /DRSEC/  STSCOD.  STSNAN.  DSSEC.  DESEC.  DNSEC.  NOEL 

1Z1BC 

1220C 

1231  IF (NSEL. CT. I)  GO  TO  2B 

1240  PRINT.  "THERE  ARE  NO  RECORDS  ON  THE  TEMP  FILE." 

1230  RETURN 

124B  21  IF1.N0T.  UINFO)  CO  TO  4B 
1270  PRINT.  "INSTRUCTIONS  (T  OR  Nl?" 

128#  READ.  ANS 

129#  lF(ANS.EQ.'T')  GO  TO  25 

13N  UINFO  * .F. 

131#  GO  TO  4# 

132#  23  UINFO  * .T. 

133#  PRINT.  "THIS  ROUTINE  HILL  UPDATE  THE  DATA  BASE  UITH  RECORDS" 

134#  PRINT,  "FROM  THE  PREVIOUSLT  CREATED  'TEMP'  FILE.  " 

133#  PRINT.  " - RECORDS  THAT  HAVE  BEEN  MODIFIED  HILL  OVER-URITE" 

134#  PRINT.  " THE  ORIGINAL  RECORD  IN  THE  DATA  BASE." 

137#  PRINT.  " - RECORDS  THAT  HAVE  BEEN  DELETE  NARKED  HILL  BE  DELETE' 

138#  PRINT.  " NARKED  IN  THE  DATA  BASE." 

139#  PRINT,  " - RECORDS  ON  THE  TEMP  FILE  UHICH  HAVE  NOT  BEEN  " 

14##  PRINT,  " MODIFIES  OR  DELETE  NARKED  HILL  BE  IGNORED." 

141#  PRINT,  " " 

142#  PRINT.  "NOTE:  IF  THE  'FUNCTION  CODE'  (FIELD  2)  FOR  A RECORD" 

143#  PRINT,  "HAS  BEEN  MODIFIED,  IT  UIU  NOT  BE  POSSIBLE  TO  UPDATE" 

144#  PRINT,  "THE  OLD  RECORD.  THE  ORIGINAL  (UN-MODIFIED)  RECORD(S)" 

145#  PRINT,  "MUST  FIRST  BE  DELETED  FROM  THE  DATA  BASE.  THE  DELETE* 

144#  PRINT,  "NARKED  RECORDS  ON  THE  TEMP  FILE  ARE  THEN  MODIFIED  IT* 


1471  PRINT*  "CHANCING  THE  FUNCTION  CODE  TO  THE  NEN  VALUE.  THEN  THE" 

1481  PRINT*  "HOOIFIED  RECORO(S)  NUST  BE  ADDED  TO  THE  DATA  BASE  " 

1491  PRINT*  "USING  THE  SIHSIZ  ADD  FUNCTION.11 

1SN  PRINT.  " ■ 

1511  PRINT.  "ALL  RECORDS  ON  THE  TEHP  FILE  REMAIN  ON  THE  TEMP  FILE* 

1521  PRINT.  "AND  ARE  UNCHANGED.  ONLT  THE  RECORDS  IN  THE  DATA  BASE  ARE" 

1531  PRINT.  "ALTERED  BT  THIS  ROUTINE." 

154BC 

155#*  - - DETERMINE  HON  MANY  SECTORS  OF  THE  TEHP  FILE  HOLD  DATA. 

1541  4f  IREN  * HOQINSEL.  51 
1571  NUNSEC  * NSa  / 5 
1581  IF(lREH.CT.f)  NUNSEC  * NUNSEC  * 1 
159#*  - • RESET  FLAGS  AND  COUNTERS. 

1688  58  TSEC  * 1.  SC  * ' M OSC  1 1 '?  FIRST  * .T.I  BASER  * *5 

1618  SF  * » •!  ORNUH  * II  CHANGE  * .F.i  TEMP  * » » 

1621*  - - GET  THE  NEIT  SECTOR  OF  RECORDS  FRON  THE  TEHP  FILE. 

1631  61  READ  (28‘TSEC.  END*22B.  ERR*85#)  BUFF 

1641  ISTOP  * 5 

1651  BASER  * BASER  * 5 

1661  NLEFT  « KSEL  • BASER 

1671  IF1NLEFT.LT.5)  ISTOP  * (LEFT 

1681  DO  2N  BP  * 1.  ISTOP 

1698*  - • EXTRACT  STATUS  FLAG  FRON  RECORD. 

1711  CALL  CONCAT  (TEHP.  1.  BREC(BP).  2.  1) 

1711  IFUEHPJE.'D’  .AND.  TEHP.NE. fM* ) CO  TO  21# 

1728*  - - EXTRACT  STSTEH  CODE  FRON  RECORD. 

1738  CALL  CONCAT  (SC.  1.  BREC (BP) . 3.  2) 

1748*  - - IS  IT  THE  SANE  CODE  AS  LAST  RECORD? 

1758  IF(SC.EQ.OSC)  CO  TO  118 

1768  OSC  * SC 

1778*  - • NO.  MUTE  CARD  BUFFO)  BACK  TO  BB. 

1788*  UNLESS  THIS  IS  THE  FIRST  RECORD  TO  BE  PROCESSED. 

1798  IF(FIRST)  GO  TO  88 

1888  IF(.NOT.  CHANGE)  GO  TO  88 

1818  CALL  USEC  (CARO.  SECNO.  CONT) 

1828  CHANGE  * .F. 

1838*  - - CHECK  DIRECTORY  FOR  THIS  STSTEH  CODE. 

1848  88  DO  98  I * I.  D1R<3) 

1858  IF(SC.EQ.STSCODd))  GO  TO  118 

1868  98  CONTINUE 
1878  PRINT  188.  SC 

1888  188  FORNAT  (IX.  "NO  DIRECTORY  ENTRY  FOR  FUNCTION  CODE  '•  A2.  "."./. 
18988  "THE  FOLLOWING  RECORD  HILL  NOT  BE  PLACED  IN  THE  DATA  BASEi") 

1988  185  ITOTAL  * 8 
1918  K * BP 

1928  CALL  DSPLAT  (BUFF.  1.  ITOTAL.  BASER  * K.  K) 

1938  GO  TO  288 

1948*  • - SET  STARTING  SECTOR  VALUE. 

1958  118  SECNO  * DSSEC(I) 

1968  ORNUH  * 8 
1978*  - - REAO  DATA  BASE. 

1988  115  CALL  RSEC  (CAM.  SECNO.  CONT.  4888) 
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199#  FIRST  * .F. 

2IM*  • - CHECK  FOR  NATCH  OF  DO  RECORD  NUNBERS. 

2#1#*  - - EXTRACT  RECORD  HUMBER  FROM  TENP  RECORD. 

2f2f  118  DECODE  (BREC(BP).  121)  TREC 
2D3<  12f  FORMAT  (T87»  14) 

2«4«  IF(TREC.GE.ORNUN)  CO  TO  125 

2#5#*  • - UR1TE  SECTOR  BACK  TO  OB. 

2 #4#  IF  (.NOT.  CHANCE)  CO  TO  111 

2171  CALL  MSEC  (CARD.  SECNO.  CONT) 

2181  CHANCE  > .F.l  CO  TO  Ilf 

2#9«*  - - LOOP  THROUGH  CARD  BUFFER  LOOKINC  FOR  A HATCH. 

21N  125  BO  131  CP  * 1.  5 
2111*  • - EXTRACT  STATUS  FLAC. 

2121  CALL  CONCAT  (SF.  1.  CREC(CP).  2.  1) 

213f*  - - IF  NOT  'S'  OR  »C»  (I.E.i  HUST  BE  »B*  OR  ' *)  SKIP  IT. 

2141  IFtSF.NE.'S*  .AND.  SF.NE.’CM  CO  TO  131 

2151  DECODE  (CREC(CP).  12f)  ORNUN 

214#  IF (ORNUN. E9. TREC)  CO  TO  151 

2171  13#  CONTINUE 

2181*  - - NO  NATCH  TET.  CHECK  TO  SEE  IF  THIS  IS  LAST  SECTOR 
21?f*  FOR  THIS  FUNCTION  CODE. 

2211*  • - FIRST.  NRITE  THIS  SECTOR  BACK  TO  DB. 

221#  IF ( .MOT.  CHANCE)  CO  TO  135 
2221  CALL  MSEC  (CARO.  SECNO.  CONT) 

2231  CHANGE  * ,F. 

2241  135  IF(SECNO.Eq!dESEC(I»  CO  TO  14# 

225#*  - • UPDATE  SECTOR  NUMBER  AND  READ  NEXT  SECTOR. 

2 24#  SECNO  --  CONT 

227#  CALL  RSEC  (CARD.  SECNO.  CONT.  (8##) 

228#  CO  TO  125 

229#*  - - NO  NATCH  FOR  THIS  RECORD. 

23##  14#  PRINT.  "COULD  NOT  NATCH  THE  FOLLOUINC  RECORD.  SKIP  IT  AND". 
231ft  " CONTINUE." 

232#  CO  TO  1#5 
233DC 

234#*  • - HAVE  FOUND  A HATCH.  ARE  HE  DELETING  OR  UPDATING? 

235#  15#  CHANCE  * .T. 

234#  IFITEHP.EQ.’NM  CO  TO  14# 

237#*  • - DELETE  NARK  DB  RECOAi  STATUS  FLAC. 

238#  CALL  CONCAT  (CREC(CP).  2.  TENP.  1.  1) 

239#*  - - ADD  ONE  TO  DELETE  COUNT  IN  DIRECTORY. 

Z4#t  NOEL(I)  * NOEL(I)  * 1 
241#  BIREUP  « .T. 

242#  CO  TO  2ff 
243#C 

244##  • - UPDATE  THE  DD  RECORD  KITH  THE  TENP  RECORD. 

2451  14#  CREC(CP)  * DREC(DP) 

244#*  - • PUT  STATUS  FLAC  BACK  THE  NAT  IT  HAS. 

247#  CALL  CONCAT  (CAEC(CP).  2.  SF.  1.  I) 

24##  2##  CONTINUE 
2490C 

25##*  - * FINISHED  WITH  THIS  SECTOR.  ARE  THERE  NONE  SECTORS  TO  PROCESS? 


' 


I ! 


2511 

2521*  * - 

2531 

2541 

2551 

25U 

2571 

2581 

2541 

2488  218 

2411 

2421*  - - 
2431 

2441*  - - 
2451 

2441  221 
2478 
2488 
2498C 

2788  888 

27181 

2728 

2738 

2748  818 
2758 

2748  858 
2778 


DATAUP  * .T. 

CHECK  TO  SEE  IF  HE  ALSO  FINISHED  THE  CARD  BUFFER. 
IF(CP.LT.S)  60  TO  218 
IFl.NOT.  CHANCE)  CO  TO  218 
CALL  NSEC  (CARD*  SECNOi  CONT) 

IF (CWT.EQ.8)  CO  TO  218 
SECNO  « com 

CALL  RSEC  (CARDt  SECNO?  CONT.  4888) 

CHANCE  > ,F. 

TSEC  * TSEC  ♦ 1 

IF(TSEC.LE.NUHSEC)  CO  TO  48 

HAVE  FINISHED  PROCESSINC  TEMP  RECORDS. 

IFl.NOT.  CHANCE)  CO  TO  228 
WRITE  LAST  SECTOR  BACK  TO  DB. 

CALL  NSEC  (CARD.  SECNO.  CONT) 

PRINT.  "DATA  BASE  UPDATE  COHPLETE." 

CALL  RNHEAD  (2) 

RETURN 


2788 


PRINT.  "ERROR  RETURN  WHILE  HRIT1NC  THE  FOLLOUINC  SECTOR  TO". 
" THE  DATA  BASE:" 

1 TOTAL  * 8 

CALL  DSPLA1  (CARD.  CP.  1 TOTAL.  1.  1) 

PRINT.  "TERMINATING  UPDATE  RUN." 

RETURN 

PRINT.  "ERROR  RETURN  FROM  TEMP  FILE  REAO." 

CO  TO  818 
END 
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